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Interfaces für Computer mit Applebus + Interfaces für Computer mit Applebus + Interfa 



AP 13 und AP 17 

RAM-Karten zum Einsatz als Pseu¬ 
dodisk unter CP/M, USCD und 
APPLE-DOS. Speichergröße von 
64 kByte bis 256 kByte. 

Bestell-Nr.; A 1013 a-b 
A1017a-d 


AP 33 

RAMDISK der neuen Generation. 
Für besonders speicherinterisive 
Arbeiten ist der Ausbau in Stufen 
von 64 kByte bis 1MByte möglich. 
Bestell-Nr. Al 033 



AP 14 

Floppy-ControUer für alle Anwen¬ 
dungsfälle. 10 Laufwerke können 
gleichzeitig angeschlossen werden. 
4 X 8” DSDD, 4 X BVa" DSDD und 
zwei Apple-Standardlaufwerke. 
Maximal ca. 10MByte im Direktzu¬ 
griff. 

Bestell-Nr.: A 1014 



jetzt 512 k-RAM 

AP 20 

INTEMEX mit 68 000 CPU und 128 
k-RAM. Diese Karte macht aus Ihrem 
Rechner mit „Applebus” einen ech¬ 
ten 16 bit-Rechner. Eine Zusatzkarte 
{AP 26) ermöglicht einen Arbeitsspei¬ 
cher bis zu einem MByte und an Soft¬ 
ware gibt es einiges. Z.B. stehen drei 
Betriebssysteme und die wichtigsten 
Hochsprachen zur Verfügung. 
Bestell-Nr. A 1020 




AP 19 

12-Kanal AD-DA-Wandler mit 12 bit 
Auflösung und 25 sec Wandlungs¬ 
zeit. Eingangsspannung ±10 V. Ein 
schneller Wandler für extrem 
schnelle Anwendungen. 

Bestell-Nr.: A 1019 
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Jiitf II 


NEU! 8 MHz Takt 


AP 22 

INTEMEX mit Z 80 B-CPU und 64 
k-RAM. Wenn Sie einmal diese Karte 
in Aktion gesehen haben, werden Sie 
auch feststellen: „ Geschwindigkeit 
ist keine Hexerei, man braucht nur 
die AP 22”. Mit dieser Karte wird Ihr 
APPLE II zum z.Z. schnellsten CP/M- 
Computer, und in Verbindung mit 
dem SPACE 84 erhalten Sie Compu¬ 
terleistung, die wirklich einmalig ist. 
Wir vermitteln gerne eine Vorführung. 
Bestell-Nr. A 1022 




Das Interface-Buch von IBS, ein Buch für Alle, die Ihren APPLE II oder Kompatiblen 
optimal nutzen wollen. Detaillierte Schaltpläne, Bauteilelisten und Benutzungshinweise 
zu allen IBS-Interfaces finden Sie jetzt in einem Buch vereint. Ausführliche Abhandlun¬ 
gen über Spezialschaltungen, über Anwendungsmöglichkeiten, über neue Software¬ 
welten aber auch über die Grenzen des APPLE Il-Systems bestimmen den Wert dieses 
Buches. 

Für nur DM 8,00 erhalten Sie dieses Buch ab sofort bei Ihrem Computerfachhändler 
oder für DM 8,00 + DM 2,00 Versandkosten bei IBS COMPUTERVERTRIEB. 
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ECÜTORiAl 


Jeder Apple-Besitzer, gleich ob er kleine 
oder große Programme schreibt, kommt 
zwangsläufig im Laufe der Zeit zu der 
schmerzlichen Erkenntnis, daß es fehlerlo¬ 
se Programme nicht gibt. There is always 
one more bug! Folglich erfordert jedes 
kommerziell vertriebene Programm einen 
gewissen „Support“ zur Ausmerzung von 
Fehlern. Zwei Beispiele: 

Bug 1: In meinem Programm „RAM- 
DISKLC“ aus Peeker, Heft 1/85, S. 8, ist 
ein sehr unerquicklicher, aber leider nicht 
sofort evidenter Bug, der in exakt folgen¬ 
dem Fall auftritt: 

10 PRINT CHR$ (4) “OPEN ZAHLEN¬ 
TEXTFILE“ 

20 PRINT CHR$ (4) “WRITE ZAHLEN¬ 
TEXTFILE“ 

30 PRINT Z1: PRINT Z2...: PRINT ZN: 

REM usw. 

Es muß also ein Textfile (kein Binärfile 
usw.) eröffnet werden; ferner muß ein 
Schreibvorgang stattfinden (WRITE, nicht 
READ): und schließlich müssen Zahlen 
(nicht Strings) geschrieben werden. Wenn 
nunmehr eine Zahl zwei Textfile-Sektoren 
überlappt, enthält genau diese Nahtstelle 
zwischen vorangehendem und folgendem 
Sektor „Zahlenschrott“. 

Bug 2: Die ProDOS-Version 1.0.1 (und 
1.0.2) in Verbindung mit der BASIC.SY- 
STEM-Version 1.0 hat einen ähnlichen 
Bug (s. S. 52 in diesem Heft): 

10 PRINT CHR$ (4) „OPEN TEXTFILE“ 

20 PRINT CHR$ (4) „READ TEXTFILE,Fl “ 
30 INPUT ZAHL: REM oder INPUT STRING 
Es muß also ein Textfile eröffnet werden 
(kein Binärfile usw.); ferner muß von dem 
Textfile gelesen werden (READ, nicht 
WRITE): und schließlich muß eine Feld¬ 
nummer F > = 1 spezifiziert werden. Da¬ 
gegen ist es gleichgültig, ob eine Zahl oder 


ein String eingelesen wird. Hierzu kommt 
es jedoch gar nicht mehr, denn in Zeile 30 
weist das BASIC.SYSTEM den Variablen¬ 
wert nicht der INPUT-Variablen zu, son¬ 
dern schreibt ihn erbarmungslos in den 
Speicher des Applesoft-Programms (ab 
$0801), das somit zerstört wird. 

Zur Würdigung des „Supports“ muß man 
den Preis der Software mit berücksichti¬ 
gen. Nehmen wir einmal der Einfachheit 
halber ap, daß ein Peeker-Heft im Durch¬ 
schnitt 10 Progamme enthält. Da ein ein¬ 
zelnes Heft DM 6,50 kostet, hat jedes ein¬ 
zelne Programm einen Durchschnittspreis 
von 6,5 : 10 = 0,65 DM. Unser „Support“ 
für das 65-Pfennig-Programm beschränkt 
sich daher auf die Veröffentlichung eines 
Patches, der den RAMDISKLC-Bug besei¬ 
tigt. 

ProDOS wird anstelle von DOS 3.3 heute 
in Verbindung mit der Hardware geliefert. 
Ein halbwegs komplettes Hardware-Paket 
mit Laufwerk(en) usw. kostet bei einem 
Vertragshändler heute immer noch gut DM 
4000,-. Dafür könnte man über 50 (in Wor¬ 
ten fünfzig!) Jahre lang den Peeker abon¬ 
nieren. Welchen „Support“ erhält man je¬ 
doch in bezug auf den ProDOS-Bug? In 
der Regel gar keinen, weil man aus nahe¬ 
liegenden Gründen kaum einen Vertrags¬ 
händler findet, der so tief In dieses Be¬ 
triebssystem eingedrungen ist, daß er eine 
Patentlösung („Patch“) anbieten kann. 
Denn schließlich ist ein Händler ein Händ¬ 
ler und kein Entwickler. 






Ulrich Stiehl 
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Graf-quattro 


von N.G. Barbieri 

Teil 2: Schneller als der Schall 


Jedes Hires-Grafikprogramm hat selbst¬ 
verständlich einen Hires-Cursor. Ich halte 
nicht viel von einem Cursor! Für mich sind 
zwei Cursoren viel besser. 

Warum zwei Cursoren? 

- Weil der Mensch zwei Hände hat, 

- eine Linie zwei Enden,' 

- ein Zirkel zwei Spitzen, 

- et cetera. 
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1. CURS0R1 und CURS0R2 

Die ersten zwei Utilities dieses Beitrags 
bilden die zwei Cursoren auf der Hires- 
Seite und sind - wie die Programme aus 
dem ersten Teil dieser Serie (Peeker, 4/ 
85) - selbständige Assemblerprogramme, 
die direkt von Applesoft oder anderen Ma¬ 
schinenprogrammen aufgerufen werden 
können. Im Grunde genommen sind die 
zwei Routinen Identisch bis auf die Form 
der Shapes: „ + “ für CURSOR1 und „x“ 
für CURSOR2. Bevor ich auf die Funktion 
eingehe, einige Worte über die Applesoft- 
Routine HFNS ($F6B9). Diese untersucht 
die aktuelle Programmzeile, holt sich ei¬ 
nen ersten Wert, der nicht kleiner als 0 und 
nicht größer als 279 sein darf, prüft, ob ein 
Komma vorhanden ist, und holt sich dann 





einen zweiten Wert, der nicht kleiner als 0 
und nicht größer als 191 sein darf. Am 
Ende sind die Werte, die wir X und Y 
nennen wollen, jeweils im X-Register 
(XLOW), im Y-Register (XHIGH) und im A- 
Register (Y-Wert). Damit ist eine bequeme 
Art und Weise gegeben, von Applesoft aus 
einen direkten Anschluß an Assem¬ 
blerroutinen für die Hires-Grafik mit Über¬ 
gabe von Werten, Variablen oder Formeln 
für die X-Y-Koordinaten zu finden. 

Die einzelne Cursor-Routine ist so ge¬ 
schrieben, daß beim ersten CALL ein 
Shape mit XDRAW an den gegebenen 
Koordinaten gebildet wird. Bei weiteren 
CALLs wird immer zuerst das alte Shape 
gelöscht und dann ein neues gebildet, ge¬ 
gebenenfalls auf einer neuen X-Y-Posi- 
tion. Damit wird die spätere Arbeit in Ap¬ 
plesoft wesentlich erleichtert. Für die Cur¬ 
soren werden die normalen Applesoft- 
Shapes verwendet, aber direkt ohne den 
Umweg über das offset-indizierte Verfah¬ 
ren. Das geschieht, indem zuerst im X- 
und Y-Reglster jeweils das Low- und 
High-Byte der Speicherstelle, wo die 
Shape-Vektoren anfangen, und im A-Re- 
gister die Rotation (in unserem Fall immer 
0) geladen werden und dann ein JSR auf 
XDRAW ($F65D) erfolgt. Ist ein DRAW 
gewünscht, gelten dieselben Regeln, nur 
sollte dann der JSR auf $F601 geschehen. 
Möchte man diese Grundroutine auch für 
andere Zwecke benutzen (vielleicht für ein 
Flugzeug in einem Computerspiel), so 
braucht man nur andere Shape-Vektoren 
an der gegebenen Stelle einzufügen. 


Um die Cursoren zu steuern, hier die ent¬ 
sprechenden CALLs: 

CURSOR1: Das erste Mal CALL 24769, 
danach CALL 24757. 

CURSOR2: Das erste Mal CALL 24820, 
danach CALL 24808. 

Die entsprechenden BASIC-Befehle 
lauten: 

CALL 24757: X, Y (später) 

CALL 24769: X, Y (anfangs) 
fürCURSORI und 
CALL 24808: X, Y (später) 

CALL 24820: X, Y (anfangs) 
fürCURSOR2. 

Ähnlich wie bei XPLOT (s. Teil 1 dieser 
Sehe) darf man nicht den syntaktischen 
zwischen CALL und Koordinatenwer¬ 
ten bzw. Variablen vergessen. Die Koordi¬ 
naten werden danach automatisch gespei¬ 
chert, und zwar jeweils in der Reihenfolge 
XLOW, XHIGH und Y für CURSOR1 in 
$03CA, $03CB, $03CC und für CURSOR2 


in $03CD, $03CE und $03CF. Damit ist 
eine einfache und sichere Übergabe der 
Koordinaten für die anderen Utilities ge¬ 
währleistet. 

2. LINIE 

Die Tatsache, daß die Cursor-Koordinaten 
immer verfügbar sind, erlaubt es, mit einer 
sehr einfachen Routine eine Linie zwi¬ 
schen den zwei Punkten zu ziehen. Da¬ 
durch, daß wir jetzt auch über einen 
XPLOT-Modus verfügen (s. Teil 1), ist es 
möglich, die Linie auch blinken zu lassen 
und wie ein Gummiband zu behandeln. 
Ein Flag bei $0300 (768) regelt dies. Ist die 
Speicherstelle auf 0, so wird die Linie in 
XPLOT gebildet, sonst erfolgt der normale 
HPLOT. Die Assemblerroutine erklärt sich 
selbst. Von Applesoft aus reicht einfach 
ein 

CALL 24861. 

Die Unterroutine CURSORE sorgt dafür, 
daß die Cursoren veschwinden oder neu 
gebildet werden, je nach Bedarf. Damit 
wird verhindert, daß Linien oder andere 
Gebilde und Cursoren sich gegenseitig 
XORen. 

3. VIERECK 

Benutzt man die zwei Cursoren als diago¬ 
nal entgegengesetzte Ecken, ist es sehr 
einfach, ein Viereck zu bilden. Die Technik 
ist ähnlich der Routine LINIE, hat aber 
zusätzlich eine Unterroutine DOLINE, die 
auch für die folgenden Programme nütz¬ 
lich sein wird. Von Applesoft aus wird 
VIERECK mit 
CALL 24927 
aufgerufen. 


4, BOX 

Die BOX-Routine erlaubt es, ein Viereck 
zu füilen. Um die Sache interessanter zu 
machen, wird hier alternativ in vertikaler 
Richtung mit zwei Farben gefüllt, wobei 
auch eine Farbe 8 berücksichtigt wird, d.h. 
XPLOT. Dafür verwenden wir zwei Pointer, 
und zwar $0302 (770) und $0303 (771), 
wo jeweils die gewünschten Farben ge- 
pokt werden müssen. Möchte man nur mit 
einer Farbe füllen, poke man auf beiden 
Stellen denselben Wert und rufe danach 
BOX mit 
CALL 25007 

auf. Will man zum Beispiel den Inhalt des 
Vierecks negativ darstellen, dann muß 
man zweimal die 8 poken. Die Unterrouti¬ 
ne SETCOL sorgt dafür, daß entweder der 
entsprechende COLORMASK-Wert zum 
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APPLE - DISKETTEN LAUFWERKE ÄPPI 

Original Disk II m Conlroller + OOS 3 3 + Hdbuch DM 995, 

Original Disk II (2 Laufwerk) DM 765, 

DuQ-Disk Station Slimline, 2 x l'tSKB Chinon DM 995, 

Siemens Oisk-Laulw., H3KB, m. Kabel + Gehäuse OM 525, 

Abor-Disk-faufw.,Slimline,1^3KB,m.Kab + Geb DM 435, 

Chinon Slimline, 143KB, Superleise, m Kab+Geh. DM 495, 

Teac55F, 1 MBunl Kapazität, Shugartbus 
Teac 55F, kpl nn Gehäuse, 40/80 Track, 1 MByte 
anschluOfertig, mit Umschaltung 40/80 + Kabel 
Zweillaufwerk für Apple II C, 143 KB, mil Kabel 
APPLE - INTERFACES + MAINBOARDS 
Disk Controller f, 2 Original o. kompat. Drives 
Super-Controller I. 2x Teac 55F, mit Software 
eo Zeich-Karle mit 64K RAM + Softsw, f, Ile 
80 Zeich-Karte II. m Soflswitch, 2 Zeichensälze 
16K HAM Erweiterung für II und kompatible 
Z 80A Interlace Karte für CPM 2 2 
Z 80B Interface Karte für CPM 3 0, m 64K RAM 
Printer-Grafik Interface, Epson kompatible 
Centronic-Paralell Texl-Interface Karte 
Printer-Gralik Intertace, NEC/ITOH kompatibel 
Arrschluß Kabel f Paralell + Grafik Interface 
Buffer Gralik-Interface, benutzbar für Drucker 
Epson/Nec/Itoh/Okidata u, andere m. 32K Buffer 
Buffer Interface wie vor aber mit 64K Buffer 
Anschluß Kabel I Butler Interface Karte 
232C Serielle Interface Karte 
Super Serielle Interface Karte, Fullduplex 
Sprach (Speech) Karte f. Sprachwiedergabe 
6522 Paralell Interlace Karle 
Clock Karte (Datum/Uhrzeii) Ein/Ausgabe 
Eprom Writer Karte (2716 - 2764) 

IEEE-4e8 Interface Karte 
Logo-Karte mil Diskette und Handbuch 
Musik Karte m. Diskette und Handbuch 
PAL Color Interlace Karle (UHF + Video) 

RGB Interface Karte (f. Apple II + 11+) 

Wild Karle (kopiert über RAM-Bereich) 

12eK RAM Erweiterungs Karte m. Palchsoflware 
256K RAM Erweiterungs Karte m. Patchsoftware 
6809 Prozessor Exell-9 Interfacekarte 
IC-Tester Interface Karte (RAMS/TTL 54/74) 

Hauptplaline 40K, o. Firmware Eproms, 8 Slots 
Hauplplatine 64K, wie vor 
APPLE - LEERPLATINEN 

Leerplatinen der obigen Interface Karten sind alle 
m. Bestück-Auldruck + Best.-Plan lieferbar. 

Leerplatinen mit der Kennzeichnung 
Leerplalinen mit der Kennzeichnung 
Leerplalinen mil der Kennzeichnung 
Experimentier Platine, für Apple Slot EX300 
'Leerplatine Motherboard, 48K, mil Best -Aufdruck 
Leerplatine Motherboard.64K, mit 6502 + Z0O 


IBM KOMPATIBEL . IBM ■" KOMPATIBEL ' 

Alle Teile unterliegen einer sorgfältigen Endkonlrolle und wir 
übernehmen daher volle Garantie lur die Funklionslähigkeil, 
sowohl für die gelieferten Leerplatinen, als auch für die fertig 
bestückten Boards und Interface Karten, die fast ohne Ausnahme 
mit gesockelten IC’s geliefert werden 

IBM - Kompatible Interface Karten und Mainboards -* IBM 

Disk Conlroller Karte lur 2 Disk-Orives ‘KL-2020 DM 298,50 

Color Video Board, Färb-und Video Ausg, ‘KL-2050 DM 598,— 

Monochrome Video Boards ■KL-2060 DM 398,— 

RS 232 Drucker Interlace Karle KL-2074 DM 199,— 

Centronics Paralell Interface Karle KL-2072 DM 198,— 

Multifunktion Karte, RAM-8ereich, RS232, 

Paralell, Clock, mil OK bestückt •KL-2040 DM 499,— 

dto wievor.jedochmiM28Kbestückt *KL-2041 DM 699.— 

dto wie vor, jedoch mit 256K bestückt ‘KL-2042 DM 899,— 

512K RAM Karte, mit OK bestückt KL-2095 DM 348,— 

dto wie vor. mit 128K bestückt KL-2096 DM 548,— 

Mulli I/O Interface Board, RS232, Disk-Controller, 

Centronics, Clock, Joystick 

und Lightpen-Port ■KL-2071 DM 699,50 

Eprom Wrtter Karle (bis 120K benutzbar) a, A 

Hardisk/WinchesterHost-Adapter Karte ‘KL-2022 DM 1188.— 
Mainboard XT Version.0 Slots 64K bestückt 
mit 1 Bool-Eprom, 6 Eprom-Plätze frei ‘KL-1004 DM 996,- 

dto wie vor jedoch mil 128Kbesluckt "KL-IOOS DM 1096,— 

dto wie vor, jedoch mit 256K bestückt ‘KL-1006 DM 1296,— 

Mainboard PC Version, 8 Slots, 64K bestückt 
mit 1 Boot-Eprom, 6 Eprom-Plätze frei 'KL-1010 DM 896,— 

dto wie vor. jedoch mil 128K bestückt *KL-1011 DM 996,— 

dto wie vor, jedoch mit 256K bestückt -KL-1012 DM 1296,— 

Bei den mit * gekennzeichneten Artikeln gehört zum Lieterumlang 
ein ManuaLundzT ein Schaltbild. 

IBM - Kompatible Leerplalinen + Boards - IBM 
Disk Controller f. 2 Drives DM 58,— 

Color Grafik Video Board DM 76.— 

RS232 Interlace Karle DM 66.— 

Centronics Paralell Interlace Karle DM 68,— 

Multifunktion Interface Board DM 99,— 

Eprom Writer Interface Karle DM 78,— 

Multi I/O Board DM 78.— 

Mainboard XT Version 0 Slots DM 98.— 

Mainboard PC Version, 8 Slots DM 96.— 

flAU luf Swofwr’tinwntHirvJt® PM 88.— 
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100% Appte-kompalibel 
bei Verwendung des 
Apple-Betriebssystems 


APPLE - ORIGINAL + KOMPATIBLE - COMPUTER - APPLE 

APPLE Ile, 64KRAM.Ascii-Tastal + UHF-Modul DM 2198,— 
APPLE Ile, Einstiegspaket = Computer 64KRAM, 

+ Philips-Monitor 18 Mhz grün (- Siemens F122 - 

Lautwerk 143K m. Conlroller + Lerndiskette DM 3098,— 

APPLEIIC,128KRAM,ASCIITaslalur OM 2795,— 

APPLE II C, wie vor. jedoch deutsche Tastatur DM 2998,— 

MACINTOSH System komplett m. Mouse+Tastatur 

t Macwfile/Macpainl, Systemguide-Diskette DM 5995,— 

MEWA-48K, Apple kompat., Nelzl 5Amp, Tastatur 

mit Dopp-Belegung + 10 frei Prog.Tasten, mil 

UHF-Mod., ohne Firmware Eproms. DM 888,— 

MEWA-64K. wie vor jedoch mit 15er Block DM 948,— 

MEWA 9000er Serie, mil seper.Tastal. DIN o. ASCII 

m. dopp- belegt Funkt-Tasten, Cursorbl. + 15er 

Block Netzt. 5 Amp , Gehäuse fur2x Slimline- 

Laulwerke UHF-Modulator, o Firmw -Proms 

{12KROM),4BKRAM OM 1098,— 

MEWA 9000-64-C, wie vor jedoch 64K RAM OM 1198,— 

MEWA 9000-64-C Einsliegspaket, wie vor, jedoch 

mit 1 Disk Drive eingeb- + Disk-Contr. + Monitor, 

grün OM 2098. 

IBM-Look Gehäuse für MEWA 9000 Serie Aufpreis DM 60,— 

. - MATRIX- UND TYPENBAD - DRUCKER - . 

CP-80 Matrix Drucker, Epson kompat.. vollgrafikl. DM 739.— 

CP-0OX mit eingeb. Intertace für VC 64 [ Sim. B. DM 899,— 

SPEEDY100-80, Epson kompat., lOOZ/s.v -grafikf DM 759,— 

GEMINI 10X. Neu milTextsp., 1002/s., 9x9Mal DM 998,— 

GEMINI 15X, wie 10X, jedoch bis375 mm Papierbr DM 1198.— 

ITOH 8510 B, Die Zuverlässigkeit in Person DM 1475,— 

JUKI 6100, Typenraddr., 22 Z/s, TA-Typenrader DM 1495,— 


Standard Einbau-Tastatur, ASCII. Ireibel 9 Tasten, 

Ooppelbelg. aller Tasten. Groß+Klemschr Nr N26 DM 139,— 

Tastatur wie vor, jedoch mit 15er Block Nr N67 DM 170,— 

Tastatur Nr N67. mitsep Gehäuse, kpl m Kabel DM 249,— 

Seperale Tastatur IBM-Look, anschlußfertig mit 
Kabel. Dopp. belegt.Tasten, Irei prog. Funkt,Tasten DM 298,— 

Seperate Tastatur, Eprom progr.-bar, Cursorblock 
Tastenfeld mit 24 Funktionen, Deutsch o. ASCII DM 398,— 

Leergehause Standard, passend I. Tastatur Nr. N26 DM 98,— 

dto. wie vor, jedoch passend lur 15er Tast-N67 DM 119,— 

Leergehause wie Mewa 9000, für Einbau von zwei 
Slimline-Laufwerken + Tastaturanschluß, Plastic DM 159,— 

Leergehause wie vor, jedoch m Metall-Ausführung DM 190,— 

Leergehause IBM-Look, 1, 2 Laufw. Standard 5 ' DM 198,— 

Leergehause für 1 Slimline Laufwerk, Melall DM 19,90 

Leergehause f, Duo-Disk = 2x Slimitne-Laufwerke DM 98,— 

Leergehause ( Duo-Disk = 2x Slandard-Laufw OM 109,— 

Leergehause f Duo-Disk = 2x Slimline t Nelzleil DM 179,— 

Schaltnetzteile für APPLE u. kompatible Rechner 
+ 5V/3,5A -5V/0,5A +12V/2A -12V/0,5A N73 DM 99,80 

+ 5V/5A-5V/0.5A+12V/2,5A-12V/0,5a N74 DM 119,80 

+5V/7 5A-5V/0,5A+12V/2A-12V/0,5A N75 DM 149,50 

„ DISKETTEN + DISKETTEN-BOXEN - .. 

Profi Disk Box, m. Schloß, Klars.-Deckel, 100 Disks DM 49„— 

Disk Box mil Klars-Deckel, ca 70 Disketten 5" DM 26,— 

Hartbox (ur 10 Disketten, mil Klappdeckel DM 6,90 

Disketten, mil Verstarkungsring, 3 Jahre Garanlie 
ABX 100 = SS/SD 10 Sick. a. 3,98 50 Sick. a. 3,88 500 Stck.a 3.59 
ABX200 = SS/DS10StCk a 4,08 50 Sick a 3,98 500 Stck, a 3,69 
ABX400 = DS/DD10Stck a 498 50Stck,a 4.88 500Slck a 4.59 


DM 340,— 
■DM 595,— 
DM 39,— 
■DM 109,— 
-DM 200,- 
■DM 70.— 
■DM 149,— 
■DM 129,— 
•DM 129,— 
•DM 398,— 
DM 498,— 
■DM 119,— 
■DM 129,— 
‘DM 169,— 
■DM 119,— 
■DM 440,— 
■DM 690,— 
OM 390,— 
DM 446,— 
DM 546,— 
DM 648.— 
APPLE 
.vergoldet. 


Compuler-Artikel Nachnahmeversand unfrei, Zwischenverkauf Vorbehalten 

Angebote freibleibend unter Anerkennung unserer Lieferbedingungen Technische Änderungen Vorbehalten ■Apple ii 
Warenzeichen der Fa. Apple-Compuler Inc.. Kalilormen Ware mit Rückgaberecht, besonders gekennzeichnet, muß frei 
werden ‘IBM^ ist eingetragenes Warenzeichen der Firma IBM GmbH Ffm. 


eingetragenes 

jrückgeschickt 


ERICH-WILLI MEYER 

6343 FROHNHAUSEN Postfach 7011 
Telefon (0 27 7113 50 71 


COMPUTER CENTER CONEX 

5650 SOLINGEN 11 - Postfach 11 02 06 -11 G 


Telefon (0 21 22)7 54 49 


Für llc und Ile mit 64K-Karte 


SUPERPLOT 


Double-Hires-Utility 

von Karl-Walter Bott, 1984, Programmdiskette und Manual, DM 48,- 

SUPERPLOT ist eine neue, ungewöhnlich kompakte und schnelle Ampersand-Utility für Double Hires, die einschließlich eines 
vollständigen ASClI-Shape-Zeichensatzes wahlweise in Bank 1 oder Bank 2 der Language Card liegt und damit sowohl unter 
ProDOS als auch unter DOS 3.3, falls letzteres in die LC-Bank geschoben wurde, benutzt und in eigene Applesoftprogramme 
integriert werden kann. SUPERPLOT unterstützt die üblichen HGR-Befehle, denen lediglich ein & vorangestellt werden muß, 
alsoz. B. & HPLOT500,100 TO 500,150usw. SUPERPLOT ist speziell für das Plotten von beschrifteten wissenschaftlichen 
Funktionskurven mit hoher Auflösung gedacht und weniger für HGR-Spiele. 

Hüthig Software Service • Postfach 102869 * 6900 Heidelberg 1 
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Pandabooks! 


Die Qualität kommerzieller Arcade- 
spiele läßt sich mit APPLESOFT 
BASIC alleine nicht erreichen. Jef¬ 
frey Stanton führt in die Eigenarten 
der hochauflösenden Apple-Grafik 
ein und präsentiert schließlich eine 
Reihe extrem schneller Assembler- 
Routinen, mit denen Sie viele Effek¬ 
te bekannter Spiele selbst program¬ 
mieren können. Gute BASIC- 
Kenntnisse werden vorausgesetzt, 
eine Einführung in Assembler- 
Programmierung wird gegeben. 

3-89058-006-8 299 Seiten DM49,- 
komplett mit Disk DM 89,- 


Apple H 
Raster Grafik 


Jeffrey Stanton 


01,01 



Apple ProDOS 
Handbuch 

Worth/Lechner , 

1 


Don Worth und Peter Lechner sind 
die Autoren von “Beneath Apple 
DOS“, der Bibel aller DOS 3.3- 
Benutzer. In ihrem neuen Buch ha¬ 
ben sie sich ProDOS vorgenommen 
und mit der ihnen eigenen Gründ¬ 
lichkeit zerlegt. Ausführliche Be¬ 
schreibung der Arbeitsweise, der 
Dateitypen, des “MLI“ und des 
“BASIC SYSTEM“. Das Standard¬ 
werk für jeden ProDOS-Anwender. 

3-89058-036-X ca. 250 S. DM46,- 


Das Assembler-Lehrbuch für 
BASIC-Kenner. 

Roger Wagner, der Autor vieler be¬ 
kannter Software-Pakete, schrieb 
eine monatliche Kolumne über 
Assembler-Programmierung in der 
Apple-Zeitschrift SOFT ALK. 

Der vorliegende Band faßt diese 
Reihe, korrigiert und erweitert, zu¬ 
sammen: Eine stufenweise Einfüh¬ 
rung in die Befehle und Strukturen 
der 6502-Assemblersprache, mit vie¬ 
len Beispielen von der einfachen 
Tongenerierung bis zum Disketten¬ 
zugriff, 

3-89058-003-3 277 Seiten DM48,- 
komplett mit Disk DM 89,- 


jApple n 
Assembler- j 

' Programmierunii 

Roger Wagner I 


(030) 342 08 00 


Die beiden Autoren haben zusam¬ 
men mehr als 50 Jahre Amateur¬ 
funk-Erfahrung und präsentieren 
hier mehr als 20 BASIC- 
Programme, die jeden Funkamateur 
interessieren: QTH-KENNER, 
DÄMMERUNGSLINIE ,DX- 
RECHNER ,DOPPEL-FAHN¬ 
DER, NACHWEISSCHREIBER, 
ALLZWECK-CONTEST-LOG- 
GER, FIELD-DAY-LOGGER, 
WETTBEWERB-LOGGER 
u.v.a.m. Das Buch enthält die kom¬ 
pletten Listings für Apple II und 
C64. 

3-89058-027-0 ca. 256 S. DM48,- 
komplett mit Disk DM 89,- 


AppleQuick 

Das Rpple 11 Bremer 
für häufig gebrauchte 
Rdressen und Befehle! 
64 Seiten über Rpple- 
soft, DOS, Pascal, CP/M. 
Gleich anfordern! 


BASIC-Pro- j 
gramme für | 

Funkamateure i| 

Overbeck [. 


Apple II 
Schaltplane 

Winston D Gayler 

rr—I. rrj 



Eine detaillierte Beschreibung der 
Apple II und Apple IIplus Schaltun¬ 
gen. Wenn Sie Ihren Apple selbst re¬ 
parieren, Interface-Karten oder 
S chaltungserweiterungen entwerfen 
oder einfach nur besser über das In¬ 
nenleben Ihres Apple Bescheid wis¬ 
sen wollen - dieses Buch bietet Ihnen 
eine Fülle an Informationen, Schalt¬ 
pläne und Zeitdiagramme, Theorie 
und praktische Tips. 

3-89058-012-2 215 S. A4 DM64,- 


Endlich anspruchsvolle Apple- 

Grafik für BÄSIC-Programmierer. 

Mikrocomputer Grafik 

- enthält fast 80 lauffertige BASIC- 
Programme, die die beschriebe¬ 
nen Konzepte illustrieren. 

- beschreibt “Hidden Line“- und 
‘ ‘Hidden Surface“-Techniken, 
Skalierung, Rotation und Trans¬ 
lation von Grafiken 

- bietet eine Einführung in die Ani¬ 
mationstechnik 

3-89058-000-9 292 Seiten DM49,- 
komplett mit Disk DM 89,- 


\ Mikrocomputer 
Grafik 

Roy E. Myers 





Visible Computer 

Charles Anderson 


Ein Simulationsprogramm, das Sie 
in das Innere des 6502 Mikroprozes¬ 
sors führt. Sie sehen auf dem Bild¬ 
schirm, wie die einzelnen Instruktio¬ 
nen in Zeitlupe ausgeführt werden, 
wie sich die Register und die Flags 
verändern. Ein unverzichtbares 
Hilfsmittel beim Erlernen der 
Assembler-Programmierung, da¬ 
nach ein wertvolles Werkzeug beim 
Testen Ihrer eigenen Programme. 
Komplett mit einem 6502 Editor/- 
Assembler, deutschem Handbuch 
(150 Seiten) und über 30 Beispiel¬ 
programmen. 


Apple 

Pascal Grafik 

Tom Swan 




22 Pascal-Programme, mit denen 
Sie die Grafik-Möglichkeiten Ihres 
Apple voll ausschöpfen: 

“Designer“ ermöglicht es Ihnen, ei¬ 
gene Zeichensätze zu entwerfen. 
“Gredit“ unterstützt Sie beim Ent¬ 
werfen komplexer Bildschirm- 
Grafiken 

“Printfoto“ bringt Ihre Entwürfe 
aufs Papier. 

Darüberhinaus bietet das Buch eine 
Fülle fertiger Prozeduren, die Sie 
zeitsparend in Ihre eigenen Pro¬ 
gramme einbauen können 

3-89058-009-2 280 Seiten DM 49,- 
komplett mit Diskette DM 89,- 


In allen Buchhandlungen und Computershops oder direkt von 
Pandabooks, Eismarckstr 67, 1000 Berlin 12, ( 030 ) 342 6 ö 00 

■ ■ ■ ■ Bestellcoupon ■■■■■■■■■■■■■■ 


3-89058-019-X 


DM 129,- 


Name: 

Anschrift. 

Menge Titel 
[ } j AppleQuick 


O V-Scheck hegt bei 

(spesenfreie Lieferung) 
O per Nachnahme 
(22gl Versandspesen) 

_ 

I gratis 
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Einsatz kommt oder der XPLOT (8) einge¬ 
schaltet wird. SETCOL wird auch bei der 
folgenden Routine benutzt. 



5. HINTERGRUND 

Grundsätzlich funktioniert HINTER¬ 
GRUND wie BOX, nur mit festen Werten 
und dadurch schneller (schließlich muß 
die ganze Seite gefüllt werden). Der ent¬ 
sprechende Applesoft-Befehl lautet 
CALL 25177. 



SCHRELLEA ALS DEft SCHALL 



6. PAGE.SWAP 

Für den Grafik-Editor, den ich später vor¬ 
stellen werde (HGR als Arbeitsseite und 
HGR2 als Hilfsseite), wird es oft notwendig 
sein, die zwei Seiten auszutauschen. Die¬ 
se kleine Routine besorgt das blitzschneil. 
Zum Swapppen verwende man 
CALL 25258 

als Applesoft-Befehl. Hier ist der Unter¬ 
schied zwischen Applesoft und Maschi¬ 
nensprache voll spürbar. Ein entsprechen¬ 
des Applesoft-Programm würde über 
200mal langsamer sein! 

Lassen wir es für diesmal genug sein. Im 
3. Teil von Graf-quattro geht es um das 
Übertragen oder Kopieren von einem be¬ 
liebigen viereckigen Ausschnitt, entweder 
auf derselben oder auch auf der anderen 
Grafikseite. 



^ Datenaustausch und Kommunikation - weltweit und mit 
praktisch jedem Computer ^ Nutzung von Datenbanken, 
Mailboxen, DATEX-P, BTX, BTX rückwärts usw. ►TELEX 
nutzen ohne eigenen Anschluß — mit Ihrem Computer und 
dem WS 2000 ►Alle gängigen Baudraten (75, 300/300, 
600, 1200, 1200/75, 75/1200) und internationaten Slan- 
darts (CCITT» BELL) - auch automatisch umschallbar (mit 
IC-Satz SK-1) ►Automatisches Wählen (mit AD-2) ►Au¬ 
tomatisches Anruf-Annehmen (mit AA-2) ► Einfacher An¬ 
schluß [parallel zur Telefonleilung) ►Eingebautes Netzteil 
► Deutsche Anleitung ► 1 Jahr Garantie ► Sofort ab La¬ 
ger Hamburg lieferbar 


Preise (inkL MWST.; zuzügL Verp. u. Versandk.; bei Vorkasse frei Haus): 


WS 2000 World Standard Modem DM 798,00 

AD-2 AUTODIAL-Platine DM 199,50 

AA-2 AUTOANSWER-Platine DM199,50 

SK-1 Steuer-IC-Satz DM 96,90 

UPL Kabel f. AD-2 u. SK'1 DM 45,60 


IBMC IBM-Interface (UPL-Port) DM 330,60 

APC Apple-lnt. (RS232 u. UPL) DM 330,60 

CBM-1 Interface f. C64/VIC2Q OM 136,80 

ML-2 Kabel Computer/Modem 

(nicht nötig f. APC-2 u. CBM-1) DM 57,00 


Software und weitere Interfaces auf Anfrage ■ Erhältlich im Fachhandel oder vom Importeur 




Claus F. Erbrecht • Computer Related Products 

Lappenbergsallee 37 • 2000 Hamburg 20 

Tel.: 040/8505255 


Achtung: Nur für hausinterne Telefon-Anlagen - m 
der Bundesrepublik Deutschland ist der Anschluß 
an das öffentliche Telefonnetz nicht gestattet. 




aafiEMIRAClF 
,lf|lTECHNOlOGY 
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^qRAFik 


60EB: 

AG CE 03 

25 


LDY 

CUXH 

60EE: 

AD CF 03 

26 


LDA 

CUY 

60F1: 

20 05 61 

27 


JSR 

CURS 

60F4: 

A9 3A 

28 


LDA 

#<COLON ;Syntax- 

60F6: 

20 C0 DE 

29 


JSR 

SYNCHR ; check 

60F9: 

20 B9 F6 

30 


JSR 

HFNS 



31 

* 





32 

* Speichere neue Koordinate 



33 

* 



60FC: 

, 8E CD 03 

34 


STX 

CUXL 

60FF: 

8C CE 03 

35 


STY 

CUXH 

6102: 

8D CF 03 

36 


STA 

CUY 

6105: 

20 11 F4 

37 

CURS 

JSR 

HPOSN 

6108; 

A2 11 

38 


LDX 

#<SHAPE ;Shape- 

610A: 

A0 61 

39 


LDY 

#>SHAPE ;adresse 

610C: 

A9 00 

40 


LDA 

+$0 ;ROT-0 

610E: 

4C 5D F6 

41 


JMP 

XDRAW 



42 

* 





43 

* SHAPE 

für Cursor X 



44 

* 



6111 

IC IC 4D 

45 

SHAPE 

HEX 

1C1C4D 

6114 

Fl lE lE 

46 


HEX 

FllElE 

6117 

lE 4D 39 

47 


HEX 

1E4D39 

611A 

CI 07 00 

48 


HEX 

C10700 

53 Bytes 





LINIE 







1 


ORG 

$611D :24ÜS1 



2 






3 

* LINIE 





4 

* = 





5 

* 





6 

st von N, 

G,Barbieri/1985 



7 

st 





8 

* Aufrufen mit CALL 24861 



9 

* 





10 

CUlXL 

EQU 

$3CA 1 



11 

CUlXH 

EQU 

$3CB 



12 

CUIY 

EQU 

$3CC 



13 

CU2XL 

EQU 

$3CD 



14 

CU2XH 

EQU 

$3CE 



15 

CÜ2Y 

EQU 

$3CF 



16 

XFLAG 

EQU 

$300 



17 

CURSl 

EQU 

$60D2 



18 

CURS2 

EQU 

$6105 



19 

HPOSN 

EQU 

$F411 



20 

XL INE 

EQU 

$603F 



21 

HGLIN 

EQU 

$F53A 



22 






23 

St Zieht 

eine HPLOT- oder XPLOT- 



24 

st Linie 

zwischen CURSORl und 



25 

St CURS0R2. 




26 






27 

st Erst Cursoren löschen 



28 

* 



611D: 

20 46 61 

29 


JSR 

CURSORE 



30 

* 





31 

* Dann Linie 

bilden .^, 



32 

* 



6120: 

: AE CA 03 

33 


LDX 

CUlXL 

6123: 

: AC CB 03 

34 


LDY 

CUlXH 

6126 

: AD CG 03 

35 


LDA 

CUIY 

' 6129 

: 20 11 F4 

36 


JSR 

HPOSN 

612C 

: AE CE 03 

37 


LDX 

CU2XH 

612F 

: AC CF 03 

38 


LDY 

CU2Y 

6132 

: AD 00 03 

39 


LDA 

XFLAG ^ ;Ist XOR? 

6135 

: F0 09 

40 


BEQ 

XOR 

6137 

: AD CD 03 

41 


LDA 

CU2XL ;Nein! 

613A 

: 20 3A F5 

42 


JSR 

HGLIN 

613D 

: 4C 46 61 

43 


JMP 

CURSORE 



44 

st 



6140 

: AD CD 03 

45 

XOR 

LDA 

CU2XL ;Ja! 

6143 

: 20 3F 60 

46 


JSR 

XLINE 



47 

St 





48 

* .., und wieder Cursoren. 



49 

* 



6146 

: AE CA 03 

50 

CURSORE 

LDX 

CUlXL 

6149 

: AC CB 03 

51 


LDY 

CUlXH 

614C 

: AD CC 03 

52 


LDA 

CUIY 

614F 

: 20 D2 60 

53 


JSR 

CURSl 

6152 

; AE CD 03 

54 


LDX 

CU2XL 

6155 

: AC CE 03 

55 


LDY 

CU2XH 

6158 

: AD CF 03 

56 


LDA 

CU2Y 

615B 

: 20 05 61 

57 


JSR 

CURS2 

615E 

: 60 

58 


RTS 




59 

* 





60 

*■ Die Routine CURSORE kann auch 


CURSORl 







1 


ORG 

$60B5 ;24757 



2 






3 

CURSORl 




4 

• 





5 

S|t 





6 

sjt von 

N.G. Barbieri/1985 



7 

St 





8 

* Aufrufen mit CALL 24757: X.Y 



9 






10 

COLON 

EQU 

$3A 



11 

CUXL 

EQU 

$3CA 



12 

CUXH 

EQU 

$3CB 



13 

CUY 

EQU 

$3CC 



14 

SYNCHR 

EQU 

$DEC0 



15 

HFNS 

EQU 

$F6B9 



16 

HPOSN 

EQU 

$F411 



17 

XDRAW 

EQU 

$F65D 



18 

st 





19 

st Weitere CALLS 



20 

St 





21 

* Hole 

alte Koordinate ,.. 



22 

* 



60B5: AE 

CA 03 

23 


LDX 

CUXL 

60B8: AC 

CB 03 

24 


LDY 

CUXH 

60BB: AD 

CC 03 

25 


LDA 

CUY 



26 

St 





27 

# und 

lösche alten Cursor. 



28 

* 



60BE: 20 

D2 60 

29 


JSR 

CURS 



30 

* 





31 

* Erster CALL 




32 

¥ 





33 

* Hole 

neue Koordinate 



34 

st 



60C1: A9 

3A 

35 


LDA 

+<COLON : Syntax- 

60C3: 20 

C0 DE 

36 


JSR 

SYNCHR ;Prüfung 

60C6: 20 

B9 F6 

37 


JSR 

HFNS 



38 

* 





39 

* Speichere neue Koordinate .- - 



40 

St 



60C9; 8E 

CA 03 

41 


STX 

CUXL 

60CC: 8C 

CB 03 

42 


STY 

CUXH 

60CF: 8D 

CC 03 

43 


STA 

CUY 



44 

St 





45 

* ... 

und bilde neuen Cursor. 



46 

* 



60D2: 20 

11 F4 

47 

CURS 

JSR 

HPOSN 

60D5: A2 

DE 

48 


LDX 

#<SHAPE ;Shape- 

60D7: A0 

60 

49 


LDY 

#>SHAPE ;adresse 

60D9: A9 

00 

50 


LDA 

#$0 ;ROT=0 

60DB: 4C 

5D F6 

51 


JMP 

XDRAW 



52 

St 





53 

SHAPE für Cursor + 



54 

st 



60DE: 32 

07 CI 

55 

SHAPE 

HEX 

3207C1 

60E1: CI 

67 21 

56 


HEX 

C16721 

60E4; 55 

3A 07 

57 


HEX 

553A07 

60E7; 00 


58 


HEX 

00 

51 Bytes 






CURSOR2 







1 


ORG 

$60E8 ;24808 



2 

* 





3 

St CURS0R2 




4 

St - 





5 

* 





6 

* von 

N.G, Barbieri/1985 



7 

* 





8 

* Aufrufen mit CALL 24808: X,Y 



9 

* 





10 

COLON 

EQU 

$3A 



11 

CUXL 

EQU 

$3CD 



12 

CUXH 

EQU 

$3CE 



13 

CUY 

EQU 

$3CF 



14 

SYNCHR 

; EQU 

$DEC0 



15 

HFNS 

EQU 

$F6B9 



16 

HPOSN 

EQU 

$F411 



17 

XDRAW 

EQU 

$F65D 



18 

St 





19 

St Für 

weitere 

Kommentare siehe 



20 

* CURSORl! 




21 






22 

* Hole 

alte Koordinate 



23 

st 



60E8: AE 

CD 03 

24 


LDX 

CUXL 
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11 
















11 

CUlXH 

EQU 

$3CB 


12 

CUIY 

EQU 

$3CC 


13 

CAIY 

EQU 

$3C6 


14 

CU2XL 

EQU 

$3CD 


15 

CU2XH 

EQU 

$3CE 


16 

CU2Y 

EQU 

$3CF 


17 

CA2Y 

EQU 

$3C9 


18 

XFLAG 

EQU 

$300 


19 

FARBE1 

EQU 

$302 


20 

FARBE2 

EQU 

$303 


21 

HPOSN 

EQU 

$F411 


22 

HCOLORZ 

EQU 

$E4 


23 

CURSORE 

EQU 

$6146 


24 

DOLINE 

EQU 

$61A1 


25 

COUNT 

EQU 

$0 


26 

CFLAG 

EQU 

$1 


27 

COLI 

EQU 

$2 


28 

C0L2 

EQU 

$3 


29 

* 




30 

* Füllt 1 

eine 

Box alternativ 


31 

# mit zwei Farben aufj wobei 


32 

* eine oder beide Farben auch 


33 

* XOR sein können! 


34 

* 



61AF; 20 46 61 

35 


JSR 

CURSORE 

61B2: 20 3F 62 

36 


JSR 

SETCOL 

61B5r A9 00 

37 


LDA 

#$0 

61B7r 85 01 

38 


STA 

CFLAG 


39 

* 




40 

* Die vorhandenen Y-Werte müssen 


41 

* gemerkt werden. 


42 

* 



61B9: AD CG 03 

43 


LDA 

CUIY 

61BC: AE CF 03 

44 


LDX 

CU2Y 

61BF: 8D C6 03 

45 


STA 

CAIY 

61C2: 8E C9 03 

46 


STX 

CA2Y 

61C5: CD CF 03 

47 


CMP 

CU2Y 


48 

* 




49 

* Wenn beide 

Y gleich sindj 


50 

* dann keine 

BOX! 


51 

* 



61C8: D0 14 

52 


BNE 

WEITER 


53 

* 




54 

* Vor RETURN 

sicherstellen, daß 


55 

* die ursprünglichen Y-Werte 


56 

* wieder 

hergestellt werden! 


57 

* 



61CA; AD C6 03 

58 

RETURN 

LDA 

CAIY 

61CD: AE C9 03 

59 


LDX 

CA2Y 

61D0: 8D CC 03 

60 


STA 

CUIY 

61D3: 8E CF 03 

61 


STX 

CU2Y 

61D6: A9 00 

62 


LDA 

^$0 

61D8i 8D 00 03 

63 


STA 

XFLAG 

61DB: 4C 46 61 

64 


JMP 

CURSORE j 


65 

* 




66 

* Falls 

Y2>Y1, einfach Umtauschen 


67 

* 



61DE: B0 0E 

68 

WEITER 

BCS 

SUBTR 

61E0: 48 

69 


PHA 


61E1: AD CF 03 

70 


LDA 

CU2Y 

61E4: 8D CC 03 

71 


STA 

CUIY 

61E7: 68 

72 


PLA 


61E8; 8D CF 03 

73 


STA 

CU2Y 

61EB: AD CC 03 

74 


LDA 

CUIY 


75 

* 




76 

* Anzahl 

der 

notwendigen Linien 


77 

* im COUNT speichern. 


78 

* 



61EE: 38 

79 

SUBTR 

SEC 


61EF: ED CF 03 

80 


SBC 

CU2Y 

61F2: 85 00 

81 


STA 

COUNT 

61F4: E6 00 

82 


INC 

COUNT 


83 

* 




84 

* Siehe 

auch 

Kommentare zum 


85 

* Programm HINTERGRUND! 


86 

* 



61F6: A5 01 

87 

LOOP 

LDA 

CFLAG 

61F8; D0 lA 

88 


BNE 

NEXTCOL 

61FA: C6 01 

89 


DEC 

CFLAG 

61FC: A5 02 

90 


LDA 

COLI 

61FE: C9 08 

91 


CMP 

+$8 

6200: D0 08 

92 


BNE 

LINCOL 


93 

* 



6202: A9 00 

94 

SETXOR 

LDA 

m 

6204: 8D 00 03 

95 


STA 

XFLAG 

6207: 4C lE 62 

96 


JMP 

LINE 


97 

* 



620A: 85 E4 

98 

LINCOL 

STA 

HCOLORZ 




61 

* von anderen 

Patches 





62 

* angesprochen werden! 



66 Bytes 








VIERECK 









1 


ORG 

$615F ; 

:24927 




2 

* 







3 

* VIERECK 






4 

# - 







5 

* 







6 

* von N. 

G.Barbi0ri/1985 





7 

* 







8 

* Aufrufen mit CALL 24927 





9 

* 







10 

CUlXL 

EQU 

$3CA 





11 

CUlXH 

EQU 

$3CB 





12 

CUIY 

EQU 

$3CC 





13 

CU2XL 

EQU 

$3CD 





14 

CU2XH 

EQU 

$3CE 





15 

CU2Y 

EQU 

$3CF 





16 

XFLAG 

EQU 

$300 





17 

HPOSN 

EQU 

$F411 





18 

XL INE 

EQU 

$603F 





19 

HGLIN 

EQU 

$F53A 





20 

CURSORE 

EQU 

$6146 





21 

* 







22 

* Bildet 

ein 

HPLOT- oder XPLOT- 




23 

* Viereck, wobei CURSORl und 




24 

* CURS0R2 diagonal entgegen- 




25 

* gesetzte Ecken sind. 





26 

* 





615F: 20 

46 61 

27 


JSR 

CURSORE 





28 

* 





6162: AE 

CA 03 

29 


LDX 

CUlXL ;Beginn 

6165: AC 

CB 03 

30 


LDY 

CUlXH 



6168: AD 

CC 03 

31 


LDA 

CUIY 



616B: 20 

11 F4 

32 


JSR 

HPOSN 





33 






616E; AC 

CC 03 

34 


LDY 

CUIY ; 

Seite 

1 

6171: AE 

CE 03 

35 


LDX 

CU2XH 



6174: AD 

CD 03 

36 


LDA 

CU2XL 



6177: 20 

Al 61 

37 


JSR 

DOLINE 





38 

■ 





617A: AC 

CF 03 

39 


LDY 

CU2Y ; 

Seite 

2 

617D: AE 

CE 03 

40 


LDX 

CU2XH 



6180: AD 

CD 03 

41 


LDA 

CU2XL 



6183: 20 

Al 61 

42 


JSR 

DOLINE 





43 

• 





6186; AC 

CF 03 

44 


LDY 

CU2Y ; 

: Seite 

3 

6189: AE 

CB 03 

45 


LDX 

CUlXH 



618C; AD 

CA 03 

46 


LDA 

CUlXL 



618F: 20 

Al 61 

47 


JSR 

DOLINE 





48 

-• 





6192: AC 

CC 03 

49 


LDY 

CUIY ; 

: Seite 

4 

6195: AE 

CB 03 

50 


LDX 

CUlXH 



6198: AD 

CA 03 

51 


LDA 

CUlXL 



619B: 20 

Al 61 

52 


JSR 

DOLINE 





53 






619E: 4C 

46 61 

54 


JMP 

CURSORE 





55 








56 

* Folgende Routine bildet 

eine 




57 

* Linie 

entweder in Farbe 

oder 




58 

* XOR Kann auch von anderen 




59 

# Utilities angesprochen werden. 




60 

* 





61A1: 48 


61 

DOLINE 

PHA 




61A2: AD 

00 03 

62 


LDA 

XFLAG 

XOR? 


61A5; F0 

04 

63 


BEQ 

XOR 

Ja! 


61A7: 68 


64 


PLA 


Nein! 


61A8: 4C 

3A F5 

65 


JMP 

HGLIN 





66 

* 





61AB: 68 


67 

XOR 

PLA 




61AC; 4C 

3F 60 

68 


JMP 

XLINE 



80 Bytes 








BOX 










1 


ORG 

$61AF 

: 25007 




2 

* 







3 

* BOX 







4 

* 







5 

* 







6 

* von N.G.Barbieri/1985 





7 

* 







8 

* Aufrufen mit CALL 25007 





9 








10 

CUlXL 

EQU 

$3CA 




12 
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43 

* 







44 

* Ist COLOR = 

XOR? 





45 

* 




6271: 

C9 

08 

46 


CMP 

#$8 


6273: 

D0 

08 

47 


BNE 

LINCOL 

;Nein! 




48 

* 




6275; 

A9 

00 

49 

SETXOR 

LDA 

#$0 

;Ja! 

6277: 

8D 

00 03 

50 


STA 

XFLAG 


627A: 

4C 

91 62 

51 


JMP 

LINE 





52 

* 




627D: 

85 

E4 

53 

LINCOL 

STA 

HCOLORZ 


627F: 

A9 

01 

54 


LDA 

#$1 


6281: 

8D 

00 03 

55 


STA 

XFLAG 


6284; 

4C 

91 62 

56 


JMP 

LINE 





57 

* 




6287: 

E6 

01 

58 

NEXTCOL 

INC 

CFLAG 


6289: 

A5 

03 

59 


LDA 

C0L2 


628B: 

C9 

08 

60 


CMP 

#$8 


628D: 

F0 

E6 

61 


BEQ 

SETXOR 


628F: 

D0 

EC 

62 


BNE 

LINCOL 





63 

* 




6291; 

A2 

00 

64 

LINE 

LDX 

#$0 


6293: 

A0 

00 

65 


LDY 

#$0 


6295: 

A5 

00 

66 


LDA 

COUNT 


6297: 

20 

11 F4 

67 


JSR 

HPOSN 


629A: 

A2 

01 

68 


LDX 

#$1 


629C: 

A9 

17 

69 


LDA 

4$ 17 


629E: 

A4 

00 

70 


LDY 

COUNT 


62A0; 

20 

Al 61 

71 


JSR 

DOLINE 





72 

* 







73 

* Noch 

Linien? 





74 

* 




62A3: 

A5 

00 

75 


LDA 

COUNT 


62A5: 

D0 

C0 

76 


BNE 

LOOP 

;Ja! 

62A7: 

4C 

46 61 

77 


JMP 

CURSORE 

;Nein! 

81 Bytes 







PAGE.SWAP 

1 


ORG 

$62AA 

;25258 




2 

* 







3 

* PAGE, 

SWAP 






4 

« 1 







5 

* 







6 

* von N.G.Barbieri/1985 





7 

* 







8 

* Aufrufen mit CALL 25258 




9 

* 







10 

HGR 

EQU 

$6 





11 

HGR2 

EQU 

$8 





12 

PAGl 

EQU 

$7 





13 

PAG2 

EQU 

$9 





14 

* 







15 

* Diese 

1 Routine tauscht 

super- 




16 

* schnell, unter Verwendung aller 




17 

* 3 Register, 

HGR mit HGR2 aus. 




18 

* 




62AA: 

A9 

40 

19 


LDA 

#$40 


62AC: 

85 

09 

20 


STA 

PAG2 


62AE: 

A9 

20 

21 


LDA 

#$20 


62B0: 

85 

07 

22 


STA 

PAGl 


62B2; 

A9 

00 

23 


LDA 

#0 


62B4: 

85 

06 

24 


STA 

HGR 


62B6; 

85 

08 

25 


STA 

HGR2 


62B8: 

A8 


26 


TAY 






27 





62B9: 

Bl 

06 

28 

LOOP 

LDA 

(HGR),Y 


62BB; 

AA 


29 


TAX 



62BC: 

Bl 

08 

30 


LDA 

{HGR2),Y 


62BE: 

91 

06 

31 


STA 

(HGR),Y 


62C0: 

8A 


32 


TXA 



62C1: 

91 

08 

33 


STA 

(HGR2),Y 


62C3: 

ca 


34 


INY 






35 

* 







36 

* Ist Y-Register wieder 

auf 0? 




37 

* 




62C4; 

D0 

F3 

38 


BNE 

LOOP 

;Nein! 




39 

* 




62C6: 

E6 

07 

40 


INC 

PAGl 

;Ja! 

62C8: 

E6 

09 

41 


INC 

PAG2 





42 








43 

* Sind 

alle 8K übertragen 




44 

* worden? 






45 

* 




62CA: 

A5 

07 

46 


LDA 

PAGl 


62CC: 

C9 

40 

47 


CMP 

#$40 





48 

* 




62CE: 

D0 

E9 

49 


BNE 

LOOP 

;Nein! 

62D0: 

60 


50 


RTS 


;Ja! 

39 Bytes 








620c 

A9 

01 


99 


LDA 

#$1 

620E 

8D 

00 

03 

100 


STA 

XFLAG 

6211 

4C 

lE 

62 

101 


JMP 

LINE 





102 

* 



6214 

E6 

01 


103 

NEXTCOL 

INC 

CFLAG 

6216 

A5 

03 


104 


LDA 

C0L2 

6218 

C9 

08 


105 


CMP 

#$8 

621A 

F0 

E6 


106 


BEQ 

SETXOR 

621C 

D0 

EC 


107 


BNE 

LINCOL 





108 

* 



621E 

AE 

CA 

03 

109 

LINE 

LDX 

CUlXL 

6221 

AC 

CB 

03 

110 


LDY 

CUlXH 

6224 

AD 

CC 

03 

111 


LDA 

CUIY 

6227 

20 

11 

F4 

112 


JSR 

HPOSN 

622A 

AE 

CE 

03 

113 


LDX 

CU2XH 

622D 

AC 

CC 

03 

114 


LDY 

CUIY 

6230 

AD 

CD 

03 

115 


LDA 

CU2XL 

6233 

20 

Al 

61 

116 


JSR 

DOLINE 

6236 

CE 

CC 

03 

117 


DEC 

CUIY 

6239 

C6 

00 


118 


DEC 

COUNT 





119 

* 







120 

* Noch Linien? 





121 

* 



623B 

F0 

8D 


122 


BEQ 

RETURN ;Nein! 

623D 

D0 

B7 


123 


BNE 

LOOP ;Ja! 





124 

* 







125 

* SETCOL 

sorgt dafür, daß 





126 

* in den 

temporären Variablen 





127 

* COLI und C0L2 zwei Farben, 





128 

* inkl. 

XOR, 

für Alternativ- 





129 

* betrieb gespeichert werden. 





130 

* Ist auch von anderen Utilities 





131 

* aus ansprechbar! 





132 

* 



623F 

AE 

02 

03 

133 

SETCOL 

LDX 

FARBE1 

6242: 

: BD 

50 

62 

134 


LDA 

CTABLE,X 

6245: 

: 85 

02 


135 


STA 

COLI 

6247 

: AE 

03 

03 

136 


LDX 

FARBE2 

624A: 

: BD 

50 

62 

137 


LDA 

CTABLE,X 

624D 

: 85 

03 


138 


STA 

C0L2 

624F: 

: 60 



139 


RTS 






140 

* 



6250: 

: 00 

2A 

55 

141 

CTABLE 

HEX 

002A557F80AAD5FF08 

6253: 

: 7F 

80 

AA 

D5 FF 

08 



170 Bytes 






HINTERGRUND i 


ORG 

$6259 ,-25177 





2 

* 







S 

* HINTERGRUND 






4 

• '■ 







B 

*■ 







6 

* von N. 

G.Barbieri/1985 





7 

* 







8 

* Aufrufen mit 25177 





9 

* 







10 

XFLAG 

EQU 

$300 





11 

HPOSN 

EQU 

$F411 





12 

HCOLORZ 

EQU 

$E4 





13 

CURSORE 

EQU 

$6146 





14 

DOLINE 

EQU 

$61A1 





15 

SETCOL 

EQU 

$623F 





16 

COUNT 

EQU 

$0 





17 

CFLAG 

EQU 

$1 





18 

COLI 

EQU 

$2 





19 

C0L2 

EQU 

$3 





20 

* 







21 

* Füllt 

mit COLOR, MIXCOLOR 





22 

* oder XORt (macht negativ) 





23 

# die HGR-Seite. 





24 

* 



6259 

: 20 

46 

61 

25 


JSR 

CURSORE 





26 

* 



625C 

: 20 

3F 

62 

27 


JSR 

SETCOL 





28 

* 



625F 

: A9 

00 


29 


LDA 

#$0 

6261 

; 85 

01 


30 


STA 

CFLAG 

6263 

; A9 

C0 


31 


LDA 

#$C0 

6265 

: 85 

00 


32 


STA 

COUNT 





33 

* 



6267 

: C6 

00 


34 

LOOP 

DEC 

COUNT 





35 

*■ 







36 

*■ CFLAG 

= 0 

—> COLOR 1 





37 

* CFLAG 

<> 0 

—> COLOR 2 





38 

* 



6269 

: A5 

01 


39 


LDA 

CFLAG 

626B 

: D0 

lA 


40 


BNE 

NEXTCOL 

626D 

: C6 

01 


41 


DEC 

CFLAG 

626F 

: A5 

02 


42 


LDA 

COLI 


14 
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MICROMINT 

"" 1 X/Micromin? 

WLLfRIFFIR 

A LASAR 16 

/. ^ ^ IBM 264 K, TEAC B FDD, Contr. 

color Graphik, Multifunktionscard, 
Tastatur, Monitor jg AAA 
_J Netzteii 15 A 

LASAR ZE 

/ - - Apple comp. 64 K + 

^ 12KROM + 

6502 + Z 80 A ^ OO A 
80 Z sw Tastatur I 

Außerdem volles Rückgaberecht innerhalb 
14 Tagen ohne Begründung. 


0 Mehrzweckklappgehäuse It. Abb. 179»~ 179,— 

• Schaltnetzteile Apple 5 A/IBM 15 A 11S^ 350,- 

e Profitastatur dtsch. LASAB 2000 299,— 299,— 

• Interface ab 75,— 148,— 

• Monitor 22 Mhzincl. Fuß, bernstein 299,— 299,— 

Kaufgarantie/Tiefstpreisgarantie/1A Qualität: 100 % kompatibel inkl. Systemsoftware 
Made by Micromint: Apple II 495,-, Apple Ile 695,-, IBM 895,- Fertigplatinen 495/695/ 
895, Tragbare Gehäuse für 7-Zo[l/9-Zoll-Monltore 595,- DM inkl. Tastaturen. 
Winchester 27 MB auf Anfrage 1A First Class Controller bis 140 MB 935,- DM. 

Generalimporteur MICROMINT Computer GmbH 

Hochdahier Straße 151,4006 Erkrath 2 

Telex 8589305 mcm . 


S 02104/33024 




ZUSATZ-KARTEN: 

V-24-Schntttstelle.. 199,- Z-BO-Karfe.. 139,- 

80-Zeichen-Karte m.Softswitch 236,- 16 K-Language-Karte .138,- 

Centronics-Karte von Epson für Graphik .,.. 210,- für Text..,. 145,- 

Centronics-SchnHfstelle für 2 Drucker gleichzeitig .. 129,- 

EproRimer ine!. Software ... 198,- 


Super-Eprommer 

beleql keinen Slot, incl. Software fi 


beleg! keine 

128-K-Karte 


für 2708-27128 


Fioppy-Controller 


239,- 

. auf Anfrage 


FDC 4 für alle Laufwerke. 199,- Bausatz wie links ............ 179,- 

Leerplatine wie oben incl. Prom u. Eprom ...... 130,- 

Autopotch-Controller (Erphi Controller) 

1 X 35 bis 2 X 8CfTr.-Disk, keine Patch-Disk notwendig, Patch DOS 3,3, Diversi- 
DOS 2-C, 4-C (DD MOVER), Pascal 1.1, Pascal 1.2, CPM 2.2, ProDO^QQ 
1.0.1,1.1,1.1.1: Sie können die Laufwerke untereinander mischen . . ^70/”' 


Joy Sticke 


59,- Netzteil 5A 149,- 


Gehäuse für 1 SVa" Slimline Laufwerk . .....39,- 

Gehäuse für 2 514" Slimline Laufwerke mit Platz für ein Netzteil . . 159,- 

Gehäuse für 2 3Vfe" Slimline Laufwerke mit Platz für ein Netzteil . 79,- 

tBM ■ ^Gehäuse ....229,- 

Roppy-Kabel 34pol. für 2 Laufwerke mit Shugart-Bus ...... 35,- 

Preh Commander Keyboards 

Wir bieten Ihnen die Preh-Qualität auch für Apple. AK 88 5pez. mit Gehäuse, An¬ 
schlußkabel, Zehner-Tastenfeld, dt. Zeichensatz, Sondertasten für OOO 
CtrI-Codes und Rechenfunktionen.Ww7/“ 

Preh Commander Keyboard AK 87, frei programmierbar CCO 

bis zu 10 Ebenen, pro Taste bis zu 250 Zeichen .nur OO V/" 

TEAC ZW Laufwerk FD 35 Fctq . 

Speicherkapazität 1 MB, (formatiert 640 KB) jetzt für nur. ^ f w 0 ^ 



Nochmalige Preissenkung bei TEAC 

TEACFD55A1 x40 Track. 498,- TEAC FD 55 B 2 x 40 Track. 579,- 

TEACFD55E1 x80 Track . 535,- TEAC FD 55 F 2 x 80 Track . 598,- 


Philipps Slimline Floppy X3134A 2x80 Track solange Vorrat .. nur 569,- 

Philipps 2 X 80 Track, % Bauh.nur 459,- 

SONY ZW Laufwerk ........ nur 799,- 

Sony Laufwerk für llc.auf Anfrage 

Apple®-kompatibles Laufwerk incl. Gehäuse + Kabel . 599,- 

EPSON DRUCKER 

EPSON FX 80___1670,- EPSON FX100 .. 2159,- 

EPSON RX 80 .1079,- EPSON RX 80 FT . 1295,- 


Patch-DiskettefürSONY3Vfe"Laufwerke-ermöglicht die Anpassung an ll/lleund 

kompatible Computer.. 80,- Manual vorab 15,-DM (wird beim Kauf 

der Patch-Diskette angerechnet). dto. für Laufwerke. 69,- 

Disketten Döb&Böd SS/DD lost. 62,- 10Disketten f.Sony3V2"Laufw. .150,- 
Akustikkoppler AK300 mit FTZ-Nr. incl. Netzteil . 549,- 

Die Microfloppy mit Zukunft: 

Speicherkapazität; 2x1 MByte for¬ 
matiert: 2 x 640 kByte. Anschlußfertig 
mit PROM-residenter Patchsoftware j 
für CP/M 2.2, Apple DOS 3.3, Diversi- ■ 

DOS 2-C, 4-C (DD MOVER), Apple 
Pascal 1.1, Pascal 1,2, Pro-DOS 
1.0.1,1.1,l.l.lzum 

Preis von. 

Low Power Version . 1740,- 

10 MB Winchester AAon 

incl. Controler. Software und Gehäuse.. 7 



Philipps 


Sonderangebot 


2 X 80 Track, 2/3 Bauh. 


459,- 


Gesamt-Preisliste anfordem! Preise indusrve gesetzlicher Mehrwertsteuer. 
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Das Farbbit 

Pseudo-Double-Hires auf dem Apple II Plus 


Der Apple Ile mit erweiterter 80-Zeichen- 
karte und der llc verfügen über eine hoch¬ 
auflösende Grafik von 560 ^ 192 Punkten. 
Dieser Bericht zeigt, wie man Ähnliches 
auch mit dem Apple II Plus und Kompati¬ 
blen erreicht. 

Wie man weiß, verfügt der Apple in Farbe 
praktisch nur über eine Auflösung von 140 
^ 192 Punkten, da bei den Farben 1, 2, 5 
und 6 nur jeder zweite Punkt gezeichnet 
wird. Ich selbst verzichtete daher in mei¬ 
nen früheren Programmen meist auf Far¬ 
ben, da ich zum einen auf die volle Auflö¬ 
sung Wert lege und zum anderen nicht 
über einen Farbbildschirm verfüge - wie 
wohl sehr viele andere auch. 

Neuerdings experimentiere ich damit, dem 
Apple eine höhere Auflösung zu verschaf¬ 
fen, indem ich das Farbbit gezielt einsetze, 
was auf Grün-Monitoren eine etwas ande¬ 
re Wirkung als auf Farbbildschirmen hat. 
Zum Einstieg schlage ich Ihnen vor, zu¬ 
nächst das Programm WANDERNDER- 
■STRICH einzugeben. Sie sehen nach 
dem Start zwei Striche, die sich von links 
nach rechts über den Bildschirm bewe¬ 
gen. Dabei macht der obere 560, der unte¬ 
re aber nur 280 Schritte. Wie ist dies nun 
zu erklären? 

Es sei zunächst die Art beschrieben, wie 
der Apple seine Grafik abspeichert. Pro 
Zeile sind wirklich nur 280 Punkte vorhan¬ 
den, egal was Sie jetzt auch denken mö¬ 
gen. Diese Punkte werden in 40 Bytes 
abgespeichert, wobei jedes Byte 7 Punkte 
beinhaltet. Es bleibt also ein Bit übrig, wel¬ 
ches für die farbliche Darstellung von Be¬ 
deutung ist. Es wird daher das „Farbbit“ 
genannt. Die sieben Punkte sind nun von 
links nach rechts im Byte gespeichert, wo¬ 
bei man sich vorstellen muß, daß das ganz 
links stehende das niederwertigste Bit ist 
(das linke Bit steht also für den rechten 
Punkt der 7-Punkte-Gruppe usw.). Das 
Farbbit ist das höchstwertige Bit; es befin¬ 
det sich, wie aus Abb. 1 ersichtlich, ganz 
rechts. Wie die einzelnen Zeilen im Spei¬ 
cher stehen, interessiert in diesem Zu¬ 
sammenhang nicht: dazu nur soviel: Sie 
sind aus hardwaretechnischen Gründen 
nicht linear angeordnet, sondern ähnlich 
wie die Textzeilen nach einem bestimmten 
Muster gegliedert. 

Das Farbbit legt nun den Farbmodus für 
die 7 in diesem Byte gespeicherten Punk¬ 
te fest. Man kann also die Farbe nur „ge¬ 
bietsweise“ definieren, was ganz beson¬ 
ders zum Tragen kommt, wenn man einen 
grünen Strich durch eine orangefarbene 
Fläche zeichnen läßt. Bei den Farben 0 bis 


3 wird das Farbbit jeweils auf 0 gesetzt, bei 
den Farben 4 bis 7 jeweils auf 1. Auf 
grünen Monitoren bewirkt das Farbbit nun 
keine Farbveränderung, sondern eine Ver¬ 
schiebung um einen halben Schritt nach 
rechts, was auf Farbbildschirmen den Ef¬ 
fekt hat, daß die Punkte auf anderen Far¬ 
ben des Farbrasters zu liegen kommen. 
Mittels dieses Farbbits kann man nun eine 
pseudo-doppelthochauflösende Grafik 
auch für die älteren Apple-Versionen 
schaffen. Es gibt dabei zwei Methoden, mit 
deren hülfe stehende Bilder höher aufge¬ 
löst erscheinen: 


Die erste Methode 

Methode 1 besteht darin, daß man bei den 
Punkten, die eigentlich bei einem Kreis 
oder einem Strich zwischen den normalen 
Punkten stehen müßten, das Farbbit auf 1 
setzt, wodurch dieser Punkt um einen hal¬ 
ben Schritt nach rechts verschoben wird. 
Ich habe diese Technik bei dem Programm 
KREIS.1 angewandt, bei dem das Farbbit 
mit Hilfe von „HCOLOR = 3 + 4 ^ (S - .5 


von H.-D. Siewert 


> INT(S))“ einmal gesetzt wird und einmal 
nicht. Dabei ist der logische Ausdruck „(S 
-.5 > (INT (S))“ gleich 1, wenn hinter dem 
Komma bei S ein Wert steht, der größer 
als 0,5 ist. Das Programm zeichnet zwei 
Kreise, von denen der eine normal und der 
andere höher aufgelöst ist. Diese Methode 
hat natürlich Ihre Vor- und Nachteile. Vor¬ 
teile: Das Bild erscheint höher aufgelöst 
und steht ruhig. Nachteile: Es sind nur 280 
Punkte pro Zeile möglich und man kann 
die Verschiebung der Punkte genau wie 
die Farbe nur 7-punkteweise bestimmen. 


Die zweite Methode 

Methode 2 besteht darin, daß man die 
normalen Punkte auf die eine Grafikseite 
und die verschobenen Punkte auf die an¬ 
dere Seite zeichnet. Um beide Bilder zu¬ 
sammenzubringen, muß ständig zwischen 
den beiden Seiten hin- und hergeschaltet 
werden. Das Programm für dieses Um¬ 
schalten ist aus Geschwindigkeitsgründen 
in Assembler geschrieben und heißt FLIP- 


1 Byte des Grafikspeichers : 


Bit: 

Wert: 
Bedeutung : 

Abbildung 1 


0 

1 

2 

3 

4 

5 

6 

7 

20 

2^ 

2^ 

2^ 

2^ 

25 

26 


Punkt 1 

Punkt 2 

Punkt 3 

Punkt 4 

Punkt 5 

Punkt 6 

Punkt 7 

Farbbit 
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PER (abzuspeichern mit „BSAVE FLIP¬ 
PER, A$300 ,L$30“). Das Applesoft-Pro- 
gramm, das die entsprechenden Grafiken 
zeichnet (wieder zwei Kreise), heißt 
KREIS.2. KREIS.3 zeichnet 3 Kreise, und 
zwar den linken nach Methode 2, den mitt¬ 
leren mit normaler Auflösung und den 
rechten nach Methode 1. Methode 2 hat 
den Vorteil, daß wirklich 560 Punkte dar- 
gesteilt werden können, nachteilig ist je¬ 
doch, daß das Bild flimmert. 

Es hängt vom Einzelfall ab, welche Metho¬ 
de man verwendet, da keine allgemeingül¬ 
tigen Regeln aufgestellt werden können. 
Zu sagen bleibt, daß sich manche Bilder 
mit keiner der beiden von mir vorgestellten 
Möglichkeiten darstellen lassen. Dazu ge¬ 
hören vor allen Dingen Bilder, bei denen 
zu viele feine Einzelheiten zu sehen sipd. 
Will man also eine echte Auflösung von 
560 ^ 192 Punkten, so ist doch ein Apple 
Ile mit erweiterter 80-Zeichenkarte oder 
ein llc vorzuziehen. 

Damit Sie aber auch die pseudo-doppelt¬ 
hochauflösende Grafik ausprobieren kön¬ 
nen, habe ich das Programm KOMPRES¬ 
SOR geschrieben, das mit „BSAVE KOM¬ 
PRESSOR, A$8000, L$E9“ gespeichert 
werden soll. Dieses Programm faßt die 
Bilder beider Grafikseiten auf einer einzi¬ 
gen Seite zusammen. Die genauere Ar¬ 
beitsweise ist aus Abb. 2 und 3 zu erse¬ 
hen. Es werden die Punkte der beiden 
Seiten abwechselnd auf Seite 1 und auf 


Seite 2 gespeichert. Dabei ist auf Seite 1 
das Farbbit stets auf 0, auf Seite 2 hinge¬ 
gen immer auf 1 gesetzt. Wenn man nun 
mit FLIPPER zwischen den beiden Seiten 
hin- und herschaltet, wirkt das Bild dop¬ 
pelthochaufgelöst. Wie man KOMPRES^ 
SOR anwenden kann, können Sie aus 
dem Programm KOMPRESSOR.DEMO 
ersehen. Will man ein hochaufgelöstes 
Bild erstellen, so zeichnet man auf Seite 1 
die eine und auf Seite 2 die andere Flälfte 
des Bildes, läßt den KOMPRESSOR seine 
Arbeit verrichten und startet dann 
FLIPPER. 


Byte 0 Byte 1 

^^ ^^ von HG RI 

I 0 1 2 3 4 5 e] l? 8 9 10 11 12 13| Farbbitsgleich’ 

gültig 

„Kompressor" 

? 4 C I 10 \7 F*Ttt>iit0| 
pp fi a S T 0 tl 13 Ptrtooa: l| 

Abbildung 2 


Zusammenfassend Ist zu sagen, daß man 
durch meine Methoden nur in Ausnahme¬ 
fällen etwas Ähnliches wie eine doppelt¬ 
hochauflösende Grafik erzeugen kann. Es 


gibt aber noch andere Anwendungen für 
das Farbbit, die nicht mit Farbe, sondern 
mehr mit Auflösung zu tun haben - im 
Bereich der Animation. Objekte, die sich 
waagerecht über den Bildschirm bewe¬ 
gen, wie z.B. der wandernde Strich, kön¬ 
nen so wesentlich feinere Schritte aus¬ 
führen. 





Ich hoffe, daß möglichst viele Leser durch 
diesen Artikel zum Experimentieren ange¬ 
regt wurden, und wünsche allen dabei viel 
Erfolg. 


Apple und IBM 
kompatible Computer 


16K, Z80, Diskcontroler je .. 110,- 

80 Zeichenkarte mit Softswitch 

2 Zeichensätze.* 195,- 

Motherboard 48K ohne 

Firmware . 610,- 

Erphi-controier mit Autopatch .. 300,- 

Siemensiaufwerk F 122 . 515,- 

PhilipsX3134 2x80 Track. 605,- 

TEAC FD-55B2X40 Track. 515,- 

TEAC FD-55F2X80 Track.. 610,- 

Megaboard {Mainboard XT)... 1695,- 

Neu: Stardrucker SG 10 .. 920,- 

Drive Controier... 395- 

Monochrome Monitors. ab 375- 

Farbmonitors. ab 998,- 


Tastaturen für iBM und Apple ab 330,- 
Versand nur per Nachnahme oder Vorkasse 

Weiteres Zubehör für Appie und iBM gegen 
frankierten Rückumschiag. 

Preissenkung: 

Saturn 128K Karte. . 395,- 

Ulf Mohwinkel Electronic 

Berliner Straße 73 
5090 Leverkusen Fettehenne 
Telefon 0214/93781 


Messen.Steuern 
Regeln_ 

mit APPlf 
oder Kompatiblen 


Peripheriekarten für 

technische Anwendungen: 

+ Parallelports 
+ A/D-Wandler 
+ RS 232C-Schnittstelle 
+ Real/Time Clock 
außerdem: 

+ Opto. Ein/Ausgabekarten 

Information und Händleranfragen bei: 

Entwicklungsbüro Brecht 
Uhlandstraße 70 
7012 Fellbach-Schmiden 
Telefon (0711) 51 41 60 


Preisliste 

kostenlos! 


Unser Angebot im Juni 

Drucker Star SG-10 

schönschreib- und grafikfähig DM 898,- 
grafikfähiges Interface hierzu DM 118,- 

D.O.S. Computersysteme 

Am Kühnbach 42, 7170 Schwäbisch Flall 11 
Telefon (0791) 51736 
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WANDERNDER.STRICH 

10 REM WANDERNDER.STRICH von H -D. Siewert, Dez. 1984 
20 HGR : NORMAL : HOME :Y1 - 80:Y2 = 100:B - 25: VTAB 21: 

PRINT " DER OBERE STRICH MACHT 560 SCHRITTE!" 

30 FOR X = 0 TO 279: HCOLOR= 3: HPLOT X.Yl TO X,Y1 + 10: 

HPLOT X.Y2 TO X,Y2 + 10; REM Strich 1 und 2 zeichnen 
40 FOR A - 0 TO B: NEXT : HCOLOR- 7; HPLOT X,Y1 TO X,Y1 + 
10: REM Strich 1 einen halben Schritt weiterrücken 
50 FOR A - 0 TO B; NEXT : HCOLOR- 0: HPLOT X,Y1 TO X,Y1 + 
10: HPLOT X,Y2 TO X,Y2 + 10: REM Beide Striche 
wieder löschen 
60 NEXT ; TEXT 

KREIS.1 

10 REM KREIS.1 von H.-D, Siewert, Dez. 1984 
20 HGR : NORMAL : HOME :0 = 0:PI - 3.1415926535:P = PI / 

180:XI - 93:X2 = 186:Y = 90:R = 55 

30 FOR Z = 0 TO 360: HCOLOR= 3:S = R * SIN (Z P) ; C - R 

COS (Z * P): HPLOT X2 + S,Y + C: HCOLOR- 3 + 4 * (S 

- ,5 > INT (S)): HPLOT XI + S,Y + C: NEXT : REM Zwei 
Kreise zeichnen, davon Kreis 2 normal, Kreis 1 nach 
Methode 1 

40 HOME : VTAB 21: PRINT " Höhere Auflösung Normale 
Auflösung" 

KREIS.2 

10 REM KREIS.2 von H.-D. Siewert, Dez 1984 
20 NORMAL : HOME : HGR :0 - 0:P - 3.1415926535 / 180:XI = 
93:X2 = 186;Y = 90:R = 50 

30 FOR Z = 0 TO 360: HCOLOR= 3;S = R ^ SIN (Z * P):C = R 

COS (Z * P); HPLOT XI + S + .5,Y + C: HCOLOR= 7: 

HPLOT X2 + S,Y + C: NEXT ; REM Zwei Kreise auf Seite 

1 zeichnen, Kreis 1 nach Methode 2, Kreis 2 normal 

40 HGR2 : FOR Z = 0 TO 360:S = R * SIN (Z * P):C = R ^ COS 

(Z * P): HPLOT XI + S,Y + C: HPLOT X2 + S,Y + C; 

NEXT : REM Beide Kreise auf Seite 2 zeichnen, Kreis 

2 wie oben, Kreis 1 gegenüber Kreis 1 auf Seite 1 
modifiziert 

50 PRINT CHR$ (4)"BRUN FLIPPER": REM FLIPPER starten 
60 GET XY$: IF XY$ < > CHR$ (27} THEN CALL 768: GOTO 60: 
REM Mit ESC kann aus den Programm ausgestiegen 
werden, wenn das Bild steht 
70 TEXT 

KREIS.3 

10 REM KREIS.3 von H.-D. Siewert, Dez. 1984 

20 TEXT : NORMAL : HOME : HGR :0 = 0:P - 3.1415926535 / 

180:F = .5:XI = 70:X2 - 140:X3 = 210:Y = 90:R - 50 
30 FOR Z - 0 TO 360: HCOLOR- 3:S = R SIN (Z * P):C = R ¥ 
COS (Z * P): REM Sinus- und Cosinuswerte berechnen 
35 HPLOT Xl + S + F,y+C: HCOLOR- 7: HPLOT X2 -I- S,Y + C: 
HC0L0R= 3+4*{S-F>INT(S)): HPLOT X3 + S,Y + 

C; NEXT : REM Alle drei Kreise auf Seite 1 zeichnen, 
Kreis 1 nach Methode 2, Kreis 2 normal, Kreis 3 nach 
Methode 1 

40 HGR2 : FOR Z - 0 TO 360: HC0L0R= 7:S = R SIN (Z 
P);C = R COS {Z ^ P): REM Sinus- und Cosinuswerte 
berechnen 

45 HPLOT XI + S,Y + C: HPLOT X2 + S,Y + C: HCOLOR- 3 + 4 
(S - F > INT (S)): HPLOT X3 + S.Y + C: NEXT : REM 
Alle drei Kreise auf Seite 2 zeichnen, Kreis 2 und 3 
wie auf Seite 1, Kreis 3 modifiziert 
50 PRINT CHR$ (4)"BRUN FLIPPER": REM FLIPPER starten 
60 GET XY$: IF XY$ < > CHR$ (27) THEN CALL 768: GOTO 60: 
REM Wenn das Bild steht (FLIPPER außer Betrieb), 
kann man mit ESC das Programm verlassen 
70 TEXT 

KOMPRESSOR.DEMO 

10 REM KOMPRESSOR.DEMO von H.-D. Siewert, Dez. 1984 
20 NORMAL : HOME : HGR2 : HCOLOR- 7: HPLOT 279,0 TO 0,96 
TO 279,191: HPLOT 0,0 TO 279,191: HPLOT 279,0 TO 
0, 191 

25 REM In Zeile 20 wird die eine Hälfte des Bildes auf 
HGR2 gezeichnet, 

30 HGR : POKE - 16302,0; HPLOT 0,0 TO 279,96 TO 0,191; 

HPLOT 0,0 TO 279,191: HPLOT 279,0 TO 0,191 
35 REM Die andere Hälfte des Bildes wird auf HGR 
gezeichnet, 

40 PRINT CHR$ {4)"BRUN KOMPRESSOR": PRINT CHR$ (4)"BRUN 
FLIPPER" 

50 GET XY$; REM Nachdem das Bild gezeichnet wurde, werden 
KOMPRESSOR und FLIPPER gestartet. 


60 HGR2 ; HC0L0R= 7: HPLOT 0,0: CALL 62454; HCOLOR- 0; 
HPLOT 279,0 TO 0,96 TO 279,191: HPLOT 0,0 TO 
279,191: HPLOT 279,0 TO 0,191 
65 REM Auf HGR2 wird ein neues Bild gezeichnet, 

70 HGR : POKE - 16302,0: HCOLOR= 7; HPLOT 0,0: CALL 62454; 
HCOLOR= 0; HPLOT 0,0 TO 279,96 TO 0,191: HPLOT 0,0 
TO 279,191: HPLOT 279,0 TO 0,191 
75 REM auf HGR wieder die andere Hälfte. 

80 CALL 32768: CALL 768; REM Es werden erneut KOMPRESSOR 
und FLIPPER gestartet - diesmal direkt mit CALL. 

FLIPPER 

2 * ^ 

3 * Flipper * 

4 * * 

5 * Dieses Programm schaltet * 

6 * ständig zwischen fullscreen- * 

7 GRAFIK PAGE 1 und 2 hin und * 

8 * her. Von H.-D. Siewert, * 

9 * Dezember 1984 * 






10 








11 








12 


ORG 

$300 





13 

NOMIX 

EQU 

$C052 





14 

HIRES 

EQU 

$C057 





15 

GRAPHIC 

EQU 

$C050 





16 

PAGEl 

EQU 

$C054 





17 

PAGE2 

EQU 

$C055 





18 

KBD 

EQU 

$C000 





19 

STROBE 

EQU 

$C010 





20 

DUMMY 

EQU 

$00 





21 




0300 

AD 

52 

C0 

22 


LDA 

NOMIX 

0303 

AD 

57 

C0 

23 


LDA 

HIRES 

0306 

AD 

50 

C0 

24 


LDA 

GRAPHIC 

0309 

AD 

54 

C0 

25 

LOOP 

LDA 

PAGEl 

030C 

20 

lE 

03 

26 


JSR 

WAITLONG 

030F 

AD 

55 

C0 

27 


LDA 

PAGE2 

0312 

20 

20 

03 

28 


JSR 

WAIT 

0315 

2C 

00 

C0 

29 


BIT 

KBD 

0318 

10 

EF 


30 


BPL 

LOOP 

031A 

2C 

10 

C0 

31 


BIT 

STROBE 

031D 

60 



32 


RTS 






33 

* Verzögerung 

durch LDA DUMMY 

031E 

A5 

00 


34 

WAITLONG 

LDA 

DUMMY 

0320 

A0 

0F 


35 

WAIT 

LDY 

#$0F 

0322 

A2 

00 


36 

LOOPl 

LDX 

=F$00 

0324 

E8 



37 

L00P2 

INX 


0325 

D0 

FD 


38 


BNE 

L00P2 

0327 

88 



39 


DEY 


0328 

D0 

F8 


40 


BNE 

LOOPl 

032A 

A2 

CI 


41 


LDX 

+$C1 

032C 

CA 



42 

L00P3 

DEX 


032D 

D0 

FD 


43 


BNE 

L00P3 

032F 

60 



44 


RTS 



48 Bytes 


HINWEIS: Die Zeitverzögerung der Warteschleife kann sehr genau 
abgeglichen werden. Die hier angegebenen Werte wurden 
empirisch ermittelte, um ein maximal flimmerfreies 
Bild zu erhalten. 

KOMPRESSOR 

l ........ 

3 

3 * KOMPRESSOR * 

4 ¥ * 

5 * Dieses Programm faßt unter * 

6 ^ Ausnutzung des Farbbits * 

7 * beide Grafik-Seiten so zu- ^ 

8 ^ sammen, daß sie nebeneinan- * 

9 * der dargestellt werden kön- * 


10 

* nen 


* 

11 

* Von H. 

-D. Siewert, Dez. 84 ^iif 

12 

*■ 


* 

13 


14 

15 


ORG 

$8000 

16 

17 

YPOS 

EQU 

$06 

18 

C 

EQU 

$CE 

19 

D 

EQU 

$CF 

20 

LBAS 

EQU 

$FA 

21 

MBAS 

EQU 

$FC 

22 

HBAS 

EQU 

$FE 
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HandMac 


’T^Sramm für das Handwerk. 


• das Ohnen dTase. Arbäbm abnTmmt 

• döb -^*8 f& ^ in 3:eicfsdv(awd 

odtocketf" (tXircte 

• ctei St -ae^oif tenubm bDinweu., 

otMAÄ wetiHOöiuQe. ^ScUuluw.*^ , 
ciWe H andbmS^ 

MajidMac|| 

(äu|if- auf Apple Macinto^und orw- es nur 
«u cSuterisie^ta/i -tediliaKcleL 

^ujoHuahou: Cßpyfcffiiriri qmbh 
■scKuKstr. 2o 
S52o erlav^m 
C)9AZA ~ 2A$kz 


Apple urJ Macintosh dngehf^jwe V^navVeu dw Gwifutw CV«. 



AKUSTIK-KOPPLER MgpKglOD @SuS 

300 Baud Modem, nach CCITT V.21 Standard, 
mit FTZ-Nr. 18.13.1917.00. 

Gebühren- und anmeldefrei. 

V24/RS-232 Standard-Schnittstel le 
(25-Pin). Vollduplexbetrieb. Answer-. 
Originate- und Auto-Modus nur DM 298.00 

TELEKOMMUNIKATIONS - KOMPLETT - PAKET 


geeignet für Apple //* und Apple //e: 

1 Dataphon s21d. 

1 Anschlußkabel (RS-232-Schnitt- 
stelle zum Apple II-Gameport). 

1 Terminalprogramm: 

"HIB Modem-Transfer" nur DM 398.00 

TELEKOMMUNIKATION am Apple //c: 


Anschlußkabel (Akustik-Koppler 

zum Modemport am Apple//c) DM 114.00 

ASCII-PRO (ASCII-Express) 

Kommunikationsprogramm für 

alle Apple //-Rechner geeignet DM 489.00 

Chinon-Laufwerk (Testbericht in Peeker S/8S) 
für Apple //* und Apple //e 
anschlußfertig im Gehäuse DM 498.00 

w.o. jedoch für Apple //c DM 569^00 

TOSHIBA Spitzenlaufwerke zum Superpreis! 
ND 06-D. 2 X 80 Track DM 549.00 

ND 04-D. 2 X 40 Track DM 498.00 

DISK-DOPPEL-STATION (APPLE //♦, APPLE //e) 
2 X ND 06-D im Gehäuse 
♦Auto-Patch-Controller DM 1698.00 

AUTO-PATCH-CONTROLLER DM 298.00 


AUTO-PATCH-CONTROLLER 
BROTHER-Matri xdrucker 


M-1009 (Matrixdrucker 
RS-232 + Centronics) 

M-1009 anschlußfertig an: 

Apple //c (mit Kabel) 

Apple //e (mit Graphik¬ 
interface und Kabel) 

HR-15 XL. Typenraddrucker der Si 
mit Centronics-Interface 
HR-15 XL anschlußfertig an: 

Apple //c 
Apple //e 
Apple Macintosh 

HR-10, der neue Low - Cost - Tyi 
für alle Rechner geeignet 


die Super-Druckerl 


DM 698.00 
DM 798.00 

DM 898.00 

aitzenklasse! 
DM 1698.00 

DM 1898.00 
DM 1998.00 
DM 1998.00 

)enraddrucker 
DM 998.00 


Alle Preise inclusive der gesetzlichen Mehrwertsteuer. 
Berechnung der Versandkosten erfolgt nach Entfernung und Gewicht. 
Fordern Sie noch heute unsere Gratispreisliste an! Wiederverkaufer 
bitte nur schriftlich anfragen (Kopie dar Gewerbeanmeldung beilegen!), 
g HIB CompuLerladen 

Äußere ßayreuther Str. 72 

' \ \ Postfach 2t 01 25 

f 1 S500 Nürnberg 21 

V J Telefon: 0911 / S15 939 

' Telec 17-911 8253 






















23 * 

24 * Als erstes wird das Bild 

25 ^ in Seite 1 aufgeteilt 

26 * und die eine Hälfte in 

27 # Seite 1 abgespeichert, 

28 * die andere Hälfte in Seite 3 

29 * Seite 3 beginnt bei $6000 

30 # und kann ohne Hardware- 

31 * änderungen nicht darge- 

32 * stellt werden. 

33 


8000: 

D8 



34 


CLD 


8001: 

A9 

00 


35 


LDA 

#$00 

8003: 

85 

06 


36 

NEXTYl 

STA 

YPOS 

8005: 

A0 

00 


37 


LDY 

#$00 

8007: 

20 

A8 

80 

38 


JSR 

CALC 

800A: 

Bl 

FA 


39 

NEXTXl 

LDA 

(LBAS),Y 

800C: 

20 

78 

80 

40 


JSR 

CONVERTA 

800F: 

C8 



41 


INY 


8010: 

Bl 

FA 


42 


LDA 

(LBAS),Y 

8012: 

20 

8E 

80 

43 


JSR 

CONVERTB 

8015: 

98 



44 


TYA 


8016: 

4A 



45 


LSR 


8017: 

20 

DA 

80 

46 


JSR 

STORE 

801A: 

0A 



47 


ASL 


801B: 

A8 



48 


TAY 


801C: 

C8 



49 


INY 


801D: 

C8 



50 


INY 


801E: 

C0 

28 


51 


CPY 

t$28 

8020: 

D0 

E8 


52 


BNE 

NEXTXl 

8022: 

A5 

06 


53 


LDA 

YPOS 

8024: 

69 

00 


54 


ADC 

#$00 

8026: 

C9 

C0 


55 


CMP 

#$C0 

8028: 

D0 

D9 


56 


BNE 

NEXTYl 


57 * 

58 * Hier wird dasselbe wie 

59 * oben für Seite 2 durch- 

60 * geführt. Dabei wird wieder 

61 * die eine Hälfte in Seite 1 

62 * und die andere in Seite 3 

63 * gespeichert; diesmal aber 

64 * in der rechten Hälfte der 

65 * beiden Seiten. 

66 * 


802A 

A9 

00 


67 


LDA 

#$00 

8020 

85 

06 


68 

NEXTY2 

STA 

YPOS 

802E 

A0 

00 


69 


LDY 

#$00 

8030 

20 

A8 

80 

70 


JSR 

CALC 

8033 

Bl 

FO 


71 

NEXTX2 

LDA 

(MBAS},Y 

8035 

20 

78 

80 

72 


JSR 

CONVERTA 

8038 

08 



73 


INY 


8039 

Bl 

FC 


74 


LDA 

(MBAS),Y 

803B 

20 

8E 

80 

75 


JSR 

CONVERTB 

803E 

98 



76 


TYA 


803F 

4A 



77 


LSR 


8040 

18 



78 


CLO 


8041 

69 

14 


79 


ADC 

#$I4 

8043 

20 

DA 

80 

80 


JSR 

STORE 

8046 

38 



81 


SEC 


8047 

E9 

14 


82 


SBC 

#$I4 

8049 

0A 



83 


ASL 


804A 

A8 



84 


TAY 


804B 

08 



85 


INY 


8040 

08 



86 


INY 


804D 

00 

28 


87 


CPY 

#$28 

804F 

D0 

E2 


88 


BNE 

NEXTX2 

8051 

A5 

06 


89 


LDA 

YPOS 

8053 

69 

00 


90 


ADC 

#$00 

8055 

09 

00 


91 


CMP 

#$C0 

8057 

D0 

D3 


92 


BNE 

NEXTY2 

8059 

18 



93 


CLO 



95 * Hier wird als letztes das 

96 * Bild in Seite 3 nach Seite 2 

97 * bewegt, wo es das alte Bild 

98 * verdeckt 


805A; 

A2 

40 


100 

LDX 

#$40 

805C: 

A9 

60 


101 

LDA 

#$60 

805E: 

8D 

68 

80 

102 

STA 

LOOP+2 

8061: 

A0 

00 


103 MOVE 

LDY 

#$00 

8063: 

8E 

6B 

80 

104 

STX 

LOOP+5 

8066: 

B9 

00 

60 

105 LOOP 

LDA 

$6000,Y 

8069: 

99 

00 

40 

106 

STA 

$4000,Y 

806C: 

C8 



107 

INY 


806D: 

D0 

F7 


108 

BNE 

LOOP 

806F: 

EE 

68 

80 

109 

INC 

LOOP+2 

8072: 

E8 



110 

INX 


8073: 

E0 

60 


111 

CPX 

#$60 


8075: 

D0 

EA 

112 

BNE 

MOVE 

8077: 

60 


113 

RTS 





115 

* Unterprogramme : 




117 

* CONVERTA gliedert das erste 




118 

* Byte in zwei neue Bytes auf. 




119 

* Mit CONVERTB wird das zweite 




120 

* Byte aufgegliedert und füllt 




121 

* die beiden 

neuen Bytes auf. 




122 

# CALC berechnet die Anfangs- 




123 

# adresse der 

jeweiligen im 




124 

* Akkumulator 

gespeicherten 




125 

^ Grafikzeile 





126 

* STORE speichert die neuen 




127 

* mit CONVERTA und CONVERTB 




128 

* gebildeten 

Bytes ab. 

8078: 

4A 


130 

CONVERTA LSR 


8079: 

66 

CE 

131 

ROR 

C 

807B: 

4A 


132 

LSR 


807C: 

66 

CF 

133 

ROR 

D 

807E: 

4A 


134 

LSR 


807F: 

66 

CE 

135 

ROR 

C 

8081: 

4A 


136 

LSR 


8082: 

66 

CF 

137 

ROR 

D 

8084: 

4A 


138 

LSR 


8085: 

66 

CE 

139 

ROR 

C 

8087: 

4A 


140 

LSR 


8088: 

66 

CF 

141 

ROR 

D 

808A: 

4A 


142 

LSR 


808B: 

66 

CE 

143 

ROR 

C 

808D: 

60 


144 

RTS 


808E: 

4A 


145 

CONVERTB LSR 


808F: 

66 

CF 

146 

ROR 

D 

8091: 

4A 


147 

LSR 


8092: 

66 

CE 

148 

ROR 

C 

8094: 

4A 


149 

LSR 


8095: 

66 

CF 

150 

ROR 

D 

8097: 

4A 


151 

LSR 


8098: 

66 

CE 

152 

ROR 

C 

809A: 

4A 


153 

LSR 


809B: 

66 

CF 

154 

ROR 

D 

809D: 

4A 


155 

LSR 


809E: 

66 

CE 

156 

ROR 

C 

80A0: 

4A 


157 

LSR 


1 80A1: 

66 

CF 

158 

ROR 

D 

{ 80A3: 

66 

CF 

159 

ROR 

D 

' 80A5: 

66 

CE 

160 

ROR 

C 

80A7: 

60 


161 

RTS 


80A8: 

AA 


162 

CALC TAX 


80A9: 

29 

C0 

163 

AND 

#$C0 

80AB: 

85 

FA 

164 

STA 

LBAS 

80AD: 

4A 


165 

LSR 


80 AE: 

4A 


166 

LSR 


80AF: 

05 

FA 

167 

ORA 

LBAS 

80B1: 

85 

FA 

168 

STA 

LBAS 

80B3: 

8A 


169 

TXA 


80B4; 

85 

FB 

170 

STA 

LBAS+1 

80B6: 

0A 


171 

ASL 


80B7: 

0A 


172 

ASL 


80B8: 

0A 


173 

ASL 


80B9: 

26 

FB 

174 

ROL 

LBAS+1 

80BB; 

0A 


175 

ASL 


80BC: 

26 

FB 

176 

ROL 

LBAS+1 

80BE: 

0A 


177 

ASL 


80BF: 

66 

FA 

178 

ROR 

LBAS 

80C1: 

A5 

FB 

179 

LDA 

LBAS+1 

80C3: 

29 

IF 

180 

AND 

#$1F 

80C5: 

AA 


181 

TAX 


80C6: 

09 

20 

182 

ORA 

#$20 

80C8: 

85 

FB 

183 

STA 

LBAS+1 

80CA: 

8A 


184 

TXA 


80CB: 

09 

40 

185 

ORA 

#$40 

80CD: 

85 

FD 

186 

STA 

MBAS+1 

80CF: 

09 

20 

187 

ORA 

#$20 

80D1: 

85 

FF 

188 

STA 

HBAS+1 

80D3: 

A5 

FA 

189 

LDA 

LBAS 

80D5: 

85 

FC 

190 

STA 

MBAS 

80D7: 

85 

FE 

191 

STA 

HB AS 

80D9: 

60 


192 

RTS 


80DA: 

A8 


193 

STORE TAY 


80DB: 

A5 

CF 

194 

LDA 

D 

80DD: 

09 

80 

195 

ORA 

#$80 

80DF: 

91 

FE 

196 

STA 

{HBAS),Y 

80E1: 

A5 

CE 

197 

LDA 

C 

80E3: 

29 

7F 

198 

AND 

#$7F 

80E5: 

91 

FA 

199 

STA 

{LBAS),Y 

80E7: 

98 


200 

TYA 


80E8: 

60 


201 

RTS 


233 Bytes 
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Peeker-Sammeldisketten 


Peeker 

Sammeldsskette 
Heft1 und 2^1984 



Einzelbezug DM 28,- 
Fortsetzungsbezug DM 20,- 
(Jederzeit kündbar, jedoch mindestens 
6 Disketten) 

(* = nur auf Diskette, nicht im Peeker 
gelistet! Seitenangaben beziehen sich 
auf Beginn des Listings) 

Hüthig Software Service 

Postfach 10 28 69 ■ 6900 Heidelberg 1 


Disk# 1 

(Heft 1+2, 1984) 

T.DISASSEMBLER.65C02 (1/84, S, 15) 
DISASSEMBLER.65C02 

T.ACCELWAIT (1/84, S. 22) 

ACCEL.WAIT 

T.ACCEL.BOOT 

ACCELBOOT 

ACCELLC.KOPIERER 

T.ACCELLC-KOPIE 

ACCEL.LC.KOPIE 

T.ACCEL.ROM.KOPIEI 

ACCELROM.KOPiEl 

T.ACCELROM.KOPIE2 

ACCEL.ROM.KOPIE2 

TURTLE,GRAFIK,MIT.REMS (1/84, S.29) 
TURTLE.GRAFIK.OHNE,REMS * 

DOUBLE.LORES,SOFTSWITCH.DEMO 
(1/84, S. 37) 

DOUBLE,LORES.APPLESOFT,DEMO 

AMPER.DOUBLE,LORES,DEMO 

T,AMPER,DOUBLE#ORES 

AMPER.DOUBLEXORES 

T.DOUBLE.LORES 

DOUBLE,LORES 

HIRES (1/84, S. 41) 

T,PRINTHIRES 

PRINTHIRES 

DHGR.APSOF+DEMO (2/84, S. 30) 
AMPER.DOUBLE.HIRES.BAS 
AMPER,DOUBLE.HIRES 
T.AMPER.DOUBLE,HIRES 
DHGR.LINEPLOTTER 


INSTRING.TEST (2/84, S. 43) 
INSTRING.OBJ 
TJNSTRING.OBJ 
INSTRING,LISA.SOURCE 

LOESCHEN.EINES.ARRAYS 
(2/84, S, 52) 

ULTRATERM.ENGLISCH * (2/84, S, 60) 
ULTRATERM.DEUTSCH * 

PRIMZAHLEN.OVERMEYER * 

(2/84, S. 70) 

PRIM.OBJO * 

PRIM.OBJ1 * 

PRIM.TEST * 

PRIM.TOOLKIT.SOURCE * 


Disk #2 

(Heft #2, 1985, DOS-Format) 

T.RAMDISKLC (1-2/85, S. 14) 
RAMDISKLC 

TJBS,RAMDISKDRIVER (1 -2/85, S. 20) 
IBS.RAMDISKDRIVER 
T.AP20,RAMDISKTEST 
AP20.RAMDISKTEST 

T.QUICKCOPY (1-2/85, S, 26) 

QUICKCOPY 

QUICKCOPY.PUFFER 

PRODOS.COPYA 

T.PRODOS.COPYOBJ * 

PRODOS.COPYOBJ 


Peeker 

Sammeldiskette 
Heft 1 und 2, 1985 
DOS 3.3 



PRODOS.PATCH (1-2/85, S. 31) 

T.APPLESOFT.FRE (1-2/85, S. 36) 

TXC.FRE 

LC.FRE 

FRE.TEST 

T.RAM.FRE * 

RAM.FRE 

T.SCHIRMDISK (1-2/85, S. 44) 

SCHIRMDISKXISA.SOURCE 

SCHIRMDISK 


T.VIDEXT 

VIDEXT.LISA.SOURCE 

VIDEXT 


GETPAS (1-2/85, S. 70) 
T.GETPAS.ASS * 

GETPAS,ASS 

GETDOS.PASCALSOURCE 

COPYDUPDIR.PASCALSOURCE 

PRODOS.EDITOR.MACROS 
(1-2/85. S. 86) 


Disk #3 

(Heft 1-2, 1985, CP/M-Format) 

STEUER,84 (1-2/85, S. 47) 
PASS.BAS 
MENUE.BAS 
HELP.BAS * 

A. BAS 

B. BAS 

C. BAS 

D. BAS 

E. BAS 

F. BAS 

G. BAS 

H. BAS 

I. BAS 

J. BAS 
K3AS 
LBAS 

M. BAS 

N. BAS 


Disk #4 

(Heft 3 + 4, 1985) 

TESTGENERATOR (3/85, S. 26) 

SAETZE 

BAHNFAHRT * 

ZU * 

TUN.UND.SOLLEN * 

IRGEND * 

MULTIPRECISION (3/85, S, 32) 

T,WS.TRANSFER (3/85, S, 36) 
WS.TRANSFER 
T.WS.TRANSFER2 * 
WS.TRANSFER.2 * 

GETCPM 

PRIM.O.SC.SOURCE (3/85, S. 62) 

PRIM.O.BIN 

PRIMrt.SC.SOURCE 

PRIM.1.BIN 

PRIM.FP 

ACCELERATOR.ABSTELLEN 
(3/85, S. 66) 

T.WILDCARD.TEST * (3/85, S. 72) 
WILDCARD.TEST1 * 
T.WILDCARDTEST2 * 
WILDCARD.TEST2 * 


XPLOT.DEMO (4/85, S, 18) 

XPLOT.ROUTINE 

T.XPLOT.ROUTINE 

MENUE.GENERATOR (4/85, S. 22) 

T.MACROS.65C02 (4/85, S. 31) 

TERMINAL (4/85, S.36) 

TERMINALB 

T.TERMINAL.B 

CAT.ARRAY (4/85, S, 44) 

CAT.SAVER 

EINTRAG,SUCHER 

EINTRAG.ANALYSE 

PRODOS.READER 

T.PRODOS.READER.OBJ 

PRODOS.READER OBJ 

MOUSESTUFF.PASCALSOURCE 
(4/85, S. 51) 

MOUSE.ASS.PASCALSOURCE 

TESTMOUSE.PASCALSOURCE 

DRAWMOUSE.PASCALSOURCE 

INALL.DATA (4/85, S. 70) 
SCREEN80.DATA (4/85, S. 33) 
SCREEN80,SAVER (4/85, S. 76) 


Disk #5 

(Heft 5, 1985, DOS-Format) 

T.FM.BSP (5/85, S. 9) 

FM.BSP 

T,SLOTRAMDISK (5/85, S. 13) 

SLOTRAMDISK 

SLOTRAMDISK.HELLO 

PLOT.2,0 (5/85, S. 20) 

T.PLOT.B 

PLOT.B 

PLOT.PROTECTOR 

T.CONVERT560 (5/85. S. 26) 

CONVERT560 

CONVERT560.DEMO 

T.EDA (5/85, S. 33) 

EDA 

TRANSCEND.PASCALSOURCE 
(5/85, S. 36) 

T.BLOCKTRACER (5/85, S. 51) 
BLOCKTRACER 
T.BLOCKTRACER1 
BLOCKTRACER1 

FORMAT.LC (5/85, S. 56) 
FORMATXC.START 
T.DISKDRIVER.DEMO 
DISKDRIVER.DEMO 

RANDOM.DEMO (5/85, S. 69) 
COLUMN80.DEMO 

SUPERDUMP.EPSON (6/85!) 

SUPERDUMPJMAGEWRITER 

SUPERDUMP.BILD 

T.SUPERDUMP 

SUPERDUMP 

EPSON 

IMAGEWRITER 
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Auf vielfachen Wunsch bringen wir hier eine Neuüberarbeitung des im Peeker 
Heft 1/84 vorgestellten Dump-Programms. Bei der Überarbeitung wurde 
besonderer Wert auf die Kompatibilität mit den meisten Druckern und Interfaces 
gelegt. Außerdem bietet SUPERDUMP eine Reihe neuer Features wie Double- 
Hires-Grafik, Druckern von mehreren Bildern nebeneinander usw. 


Superdump 


Das universelle Hires-Grafik-Dump-Programm 

von Jürgen Geiß 

































































Bild 1: Linke Hälfte, nicht gestaucht 



Bild 2: Beide Hälften, gestaucht 


Nach Veröffentlichung der ersten Version 
riefen viele Leser bei der Peeker-Redak- 
tion an und fragten den ohnehin schon 
gestreßten Chefredakteur Löcher in den 
Bauch. So traten Fragen auf wie „Bei mir 
wird immer nur eine Zeile gedruckt und 
dann nichts mehr!“ oder „Ich habe keinen 
Epson-Drucker, was muß ich modifizie¬ 
ren?“ usw., die Herr Stiehl natürlich nicht 
alle beantworten konnte. Da aber die 
Peeker-Leser, die nicht gerade einen Ep¬ 
son-Drucker mit Parallel-Interface besit¬ 
zen, auch in den Genuß einer Hardcopy 
der Hires-Grafik kommen sollten, mußte 
eine ganz neue Lösung gefunden werden. 
Aus der Aufgabenstellung heraus, eine 
Hardcopy hardwareunabhängig (Drucker, 
Interface) ausgeben zu können, ergaben 
sich zwei Probleme, die gelöst werden 
mußten. 


1. Problem: Die Druckersteuerzeichen 

Wer schon einmal einen Text, der mit 
Steuerzeichen für Fettschrift, Kursivschrift 
etc. gespickt ist, auf zwei Druckern ganz 
verschiedenen Typs ausgegeben hat, der 
wird wissen, daß mindestens einer der 
Ausdrucke total „daneben war“. Nur im 
seltensten Fall findet man zwei Drucker, 
die zueinander vollständig kompatibel 
sind. 

Leider gibt es für Druckersteuerzeichen 
keine Norm außer den wenigen Zeichen 
wie CR (Wagenrücklauf) oder LF (Zeilen¬ 
vorschub). Aber sogar hier gibt es Unter¬ 
schiede. Der eine Drucker benötigt ein LF 
nach CR, der andere wiederum nicht. 

So verhält es sich auch mit dem Umschal¬ 
ten auf Grafikbetrieb. Epson verlangt bei¬ 
spielsweise <ESC> „K“ und anschlie¬ 
ßend die Anzahl der Grafik-Bytes im Low/ 
high-Format, Apples Imagewriter dagegen 
<ESC> „G0280“ für 280 Grafik-Bytes. 


Man kann also von einem Programmierer 
nicht verlangen, daß er die Steuercodes 
aller Drucker kennt. Wenn nicht er, wer 
aber dann? Nehmen wir doch der Einfach¬ 
heit halber einmal den Druckerbesitzer 
(oder auch nur den Anwender). Beim Aus¬ 
packen eines Druckers findet man übli¬ 
cherweise ein mehr oder weniger gutes 
Handbuch mit einer Tabelle aller für diesen 
Drucker gültigen Steuerzeichen. 

Hier muß nun der Programmierer anset¬ 
zen. Er verlangt vom Benutzer, daß er im 
Handbuch die nötigen Steuercodes nach¬ 
schlägt und die Daten dem Programm zu¬ 
kommen läßt. Leider gibt es ein noch 
schwierigeres Problem, was tage- (und 
nächte-)langes Brüten verursachte. 


2. Problem; Das Interface 

Es gibt weitaus mehr Schnittstellen denn 
Drucker. Es gibt deren so viele, daß der 
Programmierer unmöglich wissen kann, 
wie diese softwaremäßig anzusteuern 
sind. Nun besteht natürlich die Möglich¬ 
keit, von Applesoft aus mittels des PR#- 
Befehls die Ausgabe vom Bildschirm auf 
den Drucker umzulenken, um anschlie¬ 
ßend von Assembler aus über $FDED (= 
COUT = Character Output) die Zeichen an 
den Drucker zu senden. Die Sache hat 
allerdings einen Haken. Beim Drucken von 
Grafiken können alle möglichen Bitmuster 
(von $00 bis $FF) auftreten. Da es aber für 
jedes Interface wiederum Steuerzeichen 
gibt, um es zu programmieren, kann es 
Vorkommen, daß der „Command-Charac- 
ter“ auch bei einem auszudruckenden Bit¬ 
muster auftritt. Bei einem parallelen oder 
seriellen Interface ist dies zum Beispiel ein 
<Ctrl-l> CHR$(9). Dieses Grafik-Byte 
und einige darauffolgende würden dann 
vom Interface verschluckt werden. 


Leider kann das Interface-Problem nicht 
auf den Anwender abgewälzt werden, da 
dieser genaue Kenntnisse über die Firm¬ 
ware seines Interfaces haben müßte, um 
zu erkennen, welche I/O-Adressen für 
seine Karte zuständig sind. Das aber kann 
man nicht von ihm verlangen. Also was 
tun? 

Wer sich schon näher mit dem Pascal- 
Betriebssystem, insbesondere mit dem 
BIOS (Basic Input Output System) befaßt 
hat, findet eine Lösung dieses Problems. 
Pascal erkennt fast alle Schnittstellen und 
arbeitet problemlos mit ihnen. 

Dies funktioniert wie folgt: 

1. Hole das 5. und 7. Byte aus dem ROM 
des jeweiligen Slots (bei SUPERDUMP 
nur $0105 und $0107) und vergleiche die 
Werte mit einer Tabelle für die verschiede¬ 
nen Interface-Typen. Es gibt deren 5: Pa¬ 
rallel-, Seriell-, Communications-, Disk- 
und Firmware-Karten. 

2. Sende das Zeichen entweder über die 
genormten I/O-Adressen gemäß den obi¬ 
gen Typen (bei Parallel- oder Communica- 
tions-Karte) oder springe die genormten 
Adressen im Slot- bzw. im ROM-Bereich 
an (bei Seriell- oder Firmware-Karten). 

Bei letzteren gibt es allerdings noch eine 
Sonderregel, die unbedingt beachtet wer¬ 
den muß. Da bei diesen Karten direkt in 
das ROM der Karte gesprungen wird, 
übernehmen diese wieder die weitere 
Steuerung und eventuelle Filterung durch 
den „Command-Character“. Bei diesen 
Karten gibt es aber meistens einen Steu¬ 
ercode, der einmalig gesendet werden 
muß, um zu verhindern, daß irgendwelche 
Bitmuster als Steuercode interpretiert wer¬ 
den. Bei Apples Super-Serial-lnterface 
(SSO) ist dies z.B. <Ctrl-l> „Z“ <RE- 
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TURN> (siehe Handbuch), was von Ap- 
plesoft aus leicht durch folgende Zeilen 
realisierbar wäre: 

10 PRINT CHR$(4); “PR#1“ 

20 PRINT CHR$(9); “Z“ 

30 PRINT CHR$(4): “PR#0“ 

Wenn also nach anfänglich erfolgreichem 
Drucken auf einmal Buchstaben statt Gra¬ 
fik gedruckt werden, dann erst im Hand¬ 
buch zum Interface nachschlagen, ob es 
nicht solch einen Code gibt und diesen 
dann vor dem Drucken senden. 

Nun aber genug der Theorie. 



Bild 3: Normales Double-Hires-Bild 


Was bietet SUPERDUMP? 

Da nicht alle Peeker-Leser auf das Heft 1/ 

84 zurückgreifen können, folgt hier eine 

Aufzählung aller Features von SUPER¬ 
DUMP; 

• durch Angabe eines Kontrollblocks für 
Druckersteuerzeichen druckerunab¬ 
hängig, 

• 1-, 2-, oder 4facher Druck (für beson¬ 
ders schwarze Dumps), 

• positiver oder negativer Druck 
(schwarz auf weiß oder weiß auf 
schwarz), 

• horizontaler oder vertikaler Druck, 

• Umrandung von Bildern, 

• durch Angabe der Bildadresse (z.B. 
$2000 für Seite 1) speicherunab¬ 
hängig, 

• mehrere Bilder können nebeneinander 
wiederholt werden, 

• Bildauschnitte können gewählt werden, 

• Vergrößerung in X- und Y-Richtung 
(Zoom), 

• Dump der Apple lle/llc Double-Hires- 
Grafik direkt aus dem Bildspeicher, 

• automatischer Zeilenvorschub bei CR 
ein/ausschaltbar, 

• Drucken eines großen Bildes durch 
Aufspaltung in Teilbilder, 

• Richtung der Druckernadeln wählbar, 

• Konvertierung von Double-Hires-Bil- 
dern nach normal und umgekehrt, 


Diese Features werden durch die sog. 
Übergabeparameter in der Seite 3 
($0300) gewählt, die in Tabelle 1 zusam¬ 
mengestellt sind. Es folgt eine nähere Er¬ 
läuterung einzelner Parameter: 

Kontrollblock-Nummer ($0300) - Wie 

oben erwähnt, gelten für verschiedene 
Drucker verschiedene Steuerzeichen. 
Diese müssen in einem oder mehreren 
Kontrollblocks (KB) abgelegt werden. Mit 
der Übergabe der KB-Nummer kann einer 
der Blöcke selektiert werden (z.B. zur Ein¬ 
stellung von Horizontal- oder Vertikal¬ 
druck). Der Aufbau eines Kontrollblocks 
sieht wie folgt aus; 

Die Länge eines KBs beträgt 64 Bytes. 
Diese leitet sich ab aus der Länge von 4 
Strings zu je 15 Zeichen, an deren Beginn 
das Länge-Byte stehen muß. Die 4 Strings 
haben folgende Bedeutung: 

- String #1 = Pinit: Beinhaltet die Initiali¬ 
sierungssteuerzeichen wie Zeilenabstand, 
unidirektionaler Druck etc., die zu Beginn 
eines Druckvorgangs einmalig gesendet 
werden müssen. Achtung: Der Zeilenab¬ 
stand muß bei horizontalem Druck 8 Na¬ 
deln, bei vertikalem Druck 7 Nadeln be¬ 
tragen. 

- String #2 = Pline: Steuerzeichen zum 
Umschalten des Druckers auf den Grafik¬ 
betrieb. Diese Zeichen werden vor jeder 
Druckzeile ausgegeben. 

- String #3 = PIfl: Steuerzeichen für 1/ 
216" oder 1/144" Zeilenvorschub (wird 
nur bei 2- und 4fach~Druck benutzt). 

- String #4 = Pexit: abschließende Steu¬ 
erzeichen wie bidirektionaler Druck, Zei¬ 
lenabstand auf alten Wert etc. 


In Tabellen 2 sind die Werte für die Ep- 
son-Drucker und den Imagewriter wieder¬ 
gegeben. Diese Hex-Dumps sollten durch 
BSAVE EPSON (oder IMAGEWRITER), 
A$9000, L$80 gespeichert werden. 

Bei der Erstellung eigener Kontrollblöcke 
ist zu beachten, daß sich die Parameter¬ 
blöcke nicht mit dem Assembler- ($8000- 
$86C6) oder einem Applesoft-Programm 
(ab $0800) überlappen. 


Mehrfachdruck ($0304) - Bei 2- und 

4fachem Druck wird versucht, das Papier 
um 1/216“ oder 1 /144“ vorwärts zu 
schieben, um nochmals die gleiche Zeile 
zu drucken. Der aufmerksame Leser, der 
einen Epson-Drucker besitzt, wird viel¬ 
leicht bemerkt haben, daß bei Pinit der 
Zeilenabstand des Druckers nicht wie er¬ 
wartet auf 24/3 = 8 Bits initialisiert wurde. 


sondern nur auf 23/3 Nadeln. Die restliche 
1/3 Nadel besorgt dann der PIfl-String. 
Auch bei einfachem Druck wird dieser 
String zum Drucker gesendet, wenn er 
nicht die Länge 0 hat. Es wird dann ledig¬ 
lich der fehlende Zeilenvorschub nachge¬ 
holt. Wer will, kann auch in Tabelle 2 den 
Abstand auf 24:3 = 8 Bits stellen und 
den PIfl-String auf 0 setzen. Für vertika¬ 
len Druck gilt dasselbe. 

Teilbilder ($0322) - An dieser Stelle 
möchte ich mich ganz herzlich für die posi¬ 
tive Kritik an der Erstversion des Dump- 
Programms von Herrn N.G. Barbieri be¬ 
danken, bei dessen Graf-quattro-Editor 
(Peeker Heft 4/85) diese Neuversion 
durch den DiffPics-Parameter (wie er im 
Assemblerlisting genannt wird) bestimmt 
Verwendung finden wird. Beim Drucken 
seiner 560 ^ 384-Punkte-Grafiken muß 
dann wie folgt vorgegangen werden: La¬ 
den der beiden Teilbilder 1 und 2 in Hires- 
Seite 1 und 2, Parameter wie im Beispiel 
angegeben setzen, dann die Bilder 3 und 
4 laden und nochmals drucken (wie oben). 

Kommando-Byte ($0326) - Anwendung 
für Kommando 1 und 2: Vor dem Abspei¬ 
chern eines Double-Hires-Bildes muß die¬ 
ses aus der 64K-Karte in das Main-RAM 
geschoben werden (1); nach dem Laden 
entsprechend umgekehrt (2). 

Modifizierung und Anwendung der 
Programme 

Das Assembler-Programm muß mit 
„BRUN SUPERDUMP“ gestartet werden, 
nachdem es mit „BSAVE SUPERDUMP, 
A$8000, L$6C7“ gespeichert wurde, und 
kann dann von Applesoft aus über den &- 
Vektor aufgerufen werden. 

Wegen der Länge des Quelltextes, der 
mehr als 1000 Zeilen umfaßt, kann hier nur 
ein Hex-Dump abgedruckt werden. 

Für all diejenigen, die die Paramaterüber¬ 
gabe in Seite 3 nicht selbst übernehmen 
wollen, gibt es die Applesoft-Rahmenpro- 
gramme SUPERDUMP.IMAGEWRITER 
und SUPERDUMP.EPSON, die dies be¬ 
sorgen. Für andere Drucker müssen fol¬ 
gende Zeilen geändert werden: 

1000: PF$ ist der Printerfile, in dem die 
Grafiksteuerzeichen stehen. Dieser File 
muß vorher, am besten mit dem Drucker¬ 
namen, abgespeichert werden. Dabei 
spielt die Adresse keine Rolle, denn diese 
wird in Zeile 1500-1510 nach dem Laden 
automatisch ermittelt. Achtung: Dies gilt 
nur für DOS 3.3 und nicht für ProDOS! Am 
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besten benutzt man Block #0 des Printer- 
flies für horizontalen und Block +1 für 
vertikalen Druck (siehe Tabelle 2). 

1010: DG ist der Grundeinstellungswert 
des Grafikmodus des benutzten Druckers, 
wenn ein Double-Hires-Bild mittels 
Grundeinstellung gedruckt werden soll. 
Da ein Double-Hires-Bild in X-Richtung 
doppelt so eng auf dem Bildschirm er¬ 
scheint, sollte auch für den Drucker ein 
entsprechend enger Grafikmodus gewählt 
werden. Beim Epson sollte dieser Wert 2 
(960-Punkte-Grafik), beim Imagewriter 4 
(1152-Punkte-Grafik) sein. 

1020: NG ist der Grundeinstellungswert 
für die Richtung der Drucknadeln. Für ei¬ 
nen Epson-Drucker muß dieser Wert 0 
sein, für Imagewriter 1. 

3280-3350: Diese Zeilen haben folgende 
Bedeutung: Sie stellen dem Benutzer die 
Anzahl der Grafik-Bytes pro Druckzeile in 
3 verschiedenen Formaten zur Verfügung: 

1. BT ist die Anzahl der Bytes als Integer- 
Zahl 

2. BL, BH ist die Anzahl der Bytes im Low/ 
high-Format (für Epson-Drucker etc.) 

3. BT$ ist die Anzahl der Bytes im String¬ 
format (für Imagewriter etc.) 

3400 - Ende: Menü der verschiedenen 
Grafikmodi für einen speziellen Drucker 
(siehe entsprechende Werte für Epson 
und Imagewriter). Die Modi entnimmt man 
den Druckerhandbüchern. Anschließend 
muß die Anzahl der Grafik-Bytes in den 
entsprechenden Parameterblock gepokt 
werden. Dies besorgen die letzen 2 
Zeilen. 

Achtung: Die Länge des Applesoft-Pro- 
gramms inklusive Variablen sollte $2000 
nicht überschreiten, wenn aus Seite 1 ge¬ 
druckt werden soll. 

Hinweis für Assembler-Programmierer, 
die das Applesoft-Rahmenprogramm nicht 
benutzen wollen: Die Parameter auf Seite 
3 müssen selbst an das Druckprogramm 
übergeben werden. Diese können aber 
vorher schon abgespeichert worden sein 
und brauchen dann nur noch - wie auch 
der Printerfile für die Druckersteuerzei¬ 
chen - geladen werden. 

Für die Benutzung der Applesoft-Rahmen- 
programme sind in Tabellen 3 die Einga¬ 
ben für die einzelnen Beispielbilder wie¬ 
dergegeben. 

Und nun viel Spaß beim Drucken. Übri¬ 
gens: Wenn nicht alles gleich auf Anhieb 
klappt, nicht verzagen. Erst probieren, 
dann anrufen. 




Hinweis: Wegen der großen Nachfrage 
wurde SUPERDUMP in den Versionen für 
Imagewriter und Epson bereits in die 
Peeker-Sammeldisk #5 aufgenommen 
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04 

D0 

12 

AD 

0B 

CI 

$85E8: C9 

01 

D0 

0B 

A2 

06 

AD 

0C 

$85F0: CI 

C9 

31 

D0 

02 

A2 

01 

8E 

$85F8: 30 

03 

60 

AD 

30 

03 

C9 

01 

$8600: F0 

24 

C9 

03 

F0 

0D 

C9 

04 

$8608: F0 

14 

C9 

05 

F0 

17 

C9 

06 

$8610; F0 

14 

60 

A9 

03 

8D 

9E 

C0 

$8618; A9 

15 

8D 

9E 

C0 

60 

20 

36 

$8620: 86 

20 

00 

C8 

60 

60 

48 

20 

$8628: 36 

86 

AD 

0D 

CI 

85 

00 

AC 

$8630: F8 

06 

68 

6C 

00 

00 

A2 

CI 

$8638: A0 

10 

86 

01 

8C 

F8 

06 

AD 

$8640: FF 

CF 

AD 

00 

CI 

60 

AE 

20 

$8648: 03 

F0 

04 

C9 

0A 

F0 

17 

AE 

$8650: 30 

03 

E0 

01 

F0 

53 

E0 

03 

$8658: F0 

0D 

E0 

04 

F0 

15 

E0 

05 

$8660: F0 

ID 

E0 

06 

F0 

22 

60 

AA 

$8668; AD 

9E 

C0 

29 

02 

F0 

F9 

8E 

$8670: 9F 

C0 

60 

48 

20 

36 

86 

68 

$8678: 9D 

B8 

05 

20 

AA 

C9 

60 

AE 

$8680: CI 

CI 

30 

FB 

8D 

90 

C0 

60 

$8688: 48 

A9 

00 

20 

Al 

86 

20 

36 

$8690; 86 

AD 

0F 

CI 

4C 

2D 

86 

48 

$8698: 20 

36 

86 

AD 

10 

CI 

4C 

2D 

$86A0: 86 

48 

20 

97 

86 

68 

90 

F9 

$86A8: 60 

AA 

A0 

10 

B9 

89 

C0 

29 

$86B0; 10 

F0 

F9 

B9 

89 

C0 

29 

40 

$86B8: D0 

F2 

8A 

99 

88 

C0 

60 

03 

$86C0: 18 

38 

48 

3C 

38 

18 

48 

00 


SUPERDUMP.IMAGEWRITER 

1000 PF$ = "IMAGEWRITER“: REM Parameter-File 
1010 DG ^ 4: REM Grundeinstellung für Double-Hires 
1020 NG ^ 1: REM Grundeinstellung für Nadel 


1030 

ST 

= 

768: 

REM Start der ParameterUbergabe 


1040 

KB 

= 

ST 

+ 

00: REM 

Nummer des Kontrollblockes 

1050 

KA 

= 

ST 

+ 

02: REM 

Adresse des Kontrollblockes 

1060 

IM 

= 

ST 

+ 

04: REM 

1-, 2- oder 4-fach Druck 


1070 

XO 


ST 

+ 

06: REM 

exclusives Oder für jedes 

Byte 

1080 

DI 


ST 

+ 

08: REM 

Richtung 


1090 

FR 

= 

ST 

+ 

10; REM 

Rand 


1100 

AD 


ST 

+ 

12: REM 

Grafikadresse ($2000 für 

Seite 1) 

1110 

RF 

= 

ST 

+ 

14: REM 

Wiederholung für gleiche 

Bilder 

1120 

RD 

= 

ST 

+ 

16: REM 

Distanz zwischen gleichen 

Bildern 

1130 

LE 

= 

ST 

+ 

18: REM 

linker Bildrand (0..559) 


1140 

RI 


ST 

+ 

20: REM 

rechter Bildrand (0..559) 


1150 

TP 


ST 

+ 

22: REM 

oberer Bildrand (0..191) 


1160 

BO 


ST 

+ 

24: REM 

unterer Bildrand (0..191) 


1170 

XF 


ST 

+ 

26; REM 

Dehnung in X-Richtung (1. 

.31) 

1180 

YF 


ST 

+ 

28: REM 

Dehnung in Y-Richtung (1. 

.31) 

1190 

HI 


ST 

+ 

30: REM 

Double-Hires-Grafik fUr Apple //e 

1200 

AL 

= 

ST 

+ 

32: REM 

automatisches LF nach CR 


1210 

DP 

= 

ST 

+ 

34: REM 

Anzahl verschiedener Bilder 

1220 

NE 

= 

ST 

+ 

36; REM 

Richtung der Drucknadeln 


1230 

CO 

= 

ST 

+ 

38: REM 

Kommando für Assemblerroutine 

1240 

IN 

= 

ST 

+ 

48: REM 

Interface-Typ 



1245 D$ - CHR$(4) 


1250 REM 

1260 TEXT : PRINT CHR$ (12): HOME 
1270 PRINT ''**ii^**^^***^****:********" 

1280 PRINT S U P E R D U M P *" 

1290 PRINT "* von Jürgen Geiß *" 

1300 PRINT März 1985 *" 

1310 PRINT "^*#3it*itf*j^***^^#^^*****^(f***'' 

1320 PRINT : PRINT D$"BRUN SUPERDUMP'' 

1330 PRINT : PRINT "Augenblicklicher Drucker: ";PF$; 

1340 PRINT : PRINT "Schnittstelle: 

1350 ON PEEK (IN) GOTO 1360,1370,1380,1390.1400,1410 

1360 S$ = "Super-Serielle"; GOTO 1420 

1370 S$ = "Disk-Controller": GOTO 1420 

1380 S$ = "Communications": GOTO 1420 

1390 S$ = "Serielle"; GOTO 1420 

1400 S$ = "Parallele"; GOTO 1420 

1410 S$ = "Firmware" 

1420 PRINT S$;" Karte"; 

1430 PRINT : PRINT "Apple //e Double-Hires-Grafik? 

(J/N)";: GOSUB 2150 
1440 IF A$ < > "J" GOTO 1470 

1450 POKE 49153,0; POKE 49165,0:X = PEEK (49246): REM 
Softswitches für Apple //e 
1460 PRINT ; PRINT D$"PR#3";:D = 1 

1470 PRINT : PRINT "Bild speichern? (J/N)";: GOSUB 2150 
1480 IF A$ < > "J" GOTO 1520 
1490 L$ - "L$2000" 

1500 IF D - 1 THEN POKE CO,1: & :L$ = "L$4000" 

1510 PRINT : PRINT D$"BSAVE BILD,A$2000,";L$ 

1520 PRINT : PRINT D$"BL0AD";PF$ 

1530 PI = PEEK (43634): REM Adresse des zuletzt 

1540 P2 = PEEK (43635); REM geladenen Parameterblockes 

1550 PB = PI + 256 ¥ P2 
1560 P - 1 

1570 HOME : VTAB (22) 

1580 PRINT "Grafik schon im Speicher? (J/N)";: GOSUB 2150 
1590 IF A$ - "N" GOTO 1700 

1600 IF A$ - "J" GOTO 1800 

1610 GOTO 1570 

1620 POKE - 16300,0: POKE - 16301,0: POKE - 16297,0; POKE 

- 16304,0 

1630 HOME : VTAB (22) 

1640 FOR I = ST TO ST + 39: POKE 1,0: NEXT : REM Parameter 
löschen 

1650 GOSUB 2190: REM Grundeinstellung 

1660 PRINT "Grundeinstellung? (J/N)";: GOSUB 2150 

1670 IF A$ = "J" GOTO 2020 

1680 TEXT 

1690 GOSUB 2400: GOSUB 2480: GOSUB 2550: GOSUB 2620: GOSUB 
2690; GOSUB 2760: GOSUB 2830: GOSUB 2900: GOSUB 3380; 
GOTO 2020 

1700 HOME ; VTAB (22) 

1710 PRINT "Diskette mit Grafikfiles einschieben": PRINT 
"und Taste drücken"; 

1720 GET A$ 

1730 TEXT : PRINT : PRINT D$"CATALOG": PRINT 
1740 INPUT "Welche Grafik laden? ";A$ 

1750 IF A$ - "" THEN A$ = "BILD" 

1760 HGR 

1770 HOME : VTAB (22) 

1780 PRINT D$"BLOAD";A$ 

1790 IF D = 1 THEN POKE CO,2: & ; REM verschiebe von Seite 2 
nach Aux RAM 

1800 POKE - 16300,0: POKE - 16301,0: POKE - 16297,0: POKE 

- 16304,0 
1810 P = 1 

1820 HOME ; VTAB (22) 

1830 PRINT "Ist dies das richtige Bild? (J/N)";: GOSUB 2150 

1840 IF A$ = "J" GOTO 1620 

1850 IF A$ = "N" GOTO 1870 

1860 GOTO 1820 

1870 HOME : VTAB (22) 

1880 PRINT "Wollen Sie die andere Grafikseite": PRINT 
"sehen? (J/N)";: GOSUB 2150 
1890 IF A$ = "J" GOTO 1920 
1900 IF A$ = "N" GOTO 2000 
1910 GOTO 1870 
1920 POKE - 16299,0 
1930 POKE - 16302,0 
1940 P = 2 
1950 GET A$ 

1960 PRINT 
1970 POKE - 16300,0 
1980 POKE - 16301,0 
1990 GOTO 1820 
2000 POKE - 16303,0 
2010 GOTO 1700 
2020 POKE - 16302,0 
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Für Ihre Unterlagen 

Abonnement bestellt 

am:_ 

Vertrauensgarantie: 

Ich habe davon Kenntnis genommen, 
daß ich die Bestellung schriftlich 
durch Mitteilung an den Dr. Alfred 
Hüthig Verlag, Postfach 102869, 
6900 Heidelberg 1 innerhalb von 7 
Tagen widerrufen kann. Zur Frist¬ 
wahrung genügt die rechtzeitige Ab¬ 
sendung des Widerrufs (Datum des 
Poststempels). 

peeker 

Leserservice 

Postfach 102869 
6900 Heidetberg 1 


Für Ihre Unterlagen 

Folgende Bücher bestellt: 


am:_ 

bei: 

peeker 

Versandbuchhandlung 
Postfach 102869 
6900 Heidelberg 1 


Für Ihre Unterlagen 

Folgende Disketten 
und Programme bestellt: 


am:_ 

bei: 

peeker 

Softwareabteiiung 
Postfach 102869 
6900 Heidelberg 1 


pEEkER ^ 


& 

I 

o 


Ja, ich möchte peeker abonnieren. 

Liefern Sie mir peeker ab Ausgabe.(1985 erscheinen 11 Ausgaben - 

1 Doppelnummer) zum Jahresbezugspreis von DM 72,- (Inland) incl. MwSt. Die 
Lieferung erfolgt frei Haus. Porto, Verpackung und Zustellgebühren übernimmt 
der Verlag. Der Jahresbezugspreis für das Ausland beträgt DM 72,- incl. MwSt., 
zzgl. DM 16,80 Versandspesen. 




Ich wünsche jährliche Berechnung durch: 

□ Verlagsrechnung □ Abbuchung von meinem Bank- 

bzw. Postscheckkonto 


1 


Bank / RschA 


Banklaltzahl 


Kto.-Nr. 


Dalum 


Uni&rschrHt 


^f^^^^pEEkER^ 


Q. 

O 


Bitte senden Sie mir gegen Rechnung folgende Bücher: 


(/> 


O 



Menge 

Autor, Titel 

äDM 

gesamt DM 






























Unterschrift 





PEEliER^ 

I MAGAZIN FÜR APPLE-COMPUTER 




n 


Peeker-Sammeldiskette, einzeln 

Disk#_, Disk#- 

Disk#_, Disk#_ 


& 

I 


Preis je Disk DM 28,- (einzeln) 


O 


Bitte senden Sie mir 

gegen Rechnung folgende Apple-Programme: 

□ Apple DOS 3.3, Begleitdiskette, DM 28,- 

□ Apple ProDOS, Band 1, Begleitdiskette, 
DM 28,- 

□ Apple ProDOS, Band 2, Begleitdiskette, 
DM 28,- 

□ Apple Assembler, Begleitdiskette, DM 28,- 
ProDOS-Editor 1.0, Programm, DM 98,- 
MMU 2.0, Programm, DM 98,- 
INPUT 2.0, Programm, DM 98,- 
Softbreaker 1.0, Programm, DM 48,- 
DB-Meister, Programm, DM 290,- 

□ Superplot, Programm, DM 48,- 
Superquick, Programm, DM 48,- 


a 


Peeker Sammeldiskette, 
im Fortsetzungsbezug 
ab Disk #_ 


(Mindestbezug 6 Disketten) 
Preis je Disk DM 20,- 


□ 

□ 

□ 

□ 

□ 


□ 




Datum 


Unterschrift 










































Ffrnm 


Abteilung 




PLZ/Ort 

Vertrauensgarantie; 

Ich habe davon Kenntnis genommen, daß ich die Bestellur^ 
schriftlich durch Mitteilung an den Dr. Alfred Hüthig Verlag, 
Postfach 102869, 6900 Heidelberg 1 innerhalb von 
7 Tagen widerrufen kann. Zur Fristwahrung genügt die 
rechtzeitige Absendung des Widerrufs (Datum des 
Poststempels). 



Datum 


Unterschrift 

Verlagshinweis: 

Das Abonnement verlängert sich zu den jeweils gültigen 
Bedingungen um ein Jahr, wenn es nicht 2 Monate vor 
Jahresende schriftlich gekündigt wird. 


POSTKARTE 


peeker 

Leserservice 

Postfach 10 28 69 
6900 Heidelberg 1 


INPUT 2.0 

Ein Bildschirm- 

Maskengenerator 

für DOS 3.3 und ProDOS 

von U. Stiehl 

1984, Diskette und Manual. DM 98- 
ISBN 3-7785-1021-5 

„Input 2.0" liegt wahlweise in der Bank 1 
oder Bank 2 der Language Card und wird 
durch einen kurzen Driver in den unteren 
48K aufgerufen. 

Für jedes Feld der Bildschirmmaske lassen, 
sich u. a. definieren: Feldlänge {bis zu 255 
Zeichen) - Vtab - Htab - Datentyp (insge¬ 
samt 8 Typen) - Scrollflag (starre oder dyna-- 
mische Maske) - Ctriflag - Füilflag - Lösch-^ 
flag - Bildschirmflag (40- oder 80-Z-Darstel-; 
lung). Innerhalb eines Eingabefeides besteht 
jeder denkbare Redigierkomfort (Insert, De-; 
lete, Rubout, Restore usw.). 
Gerätevoraussetzung: Apple Ile oder lIc; fer-; 
ner Apple IH- im 40-Zeichenmodus 



^^^Karte bitte vollständig ausfüllen 

o_ 

Vorname. Name 

</> _ 

I Rrma 


POSTKARTE 



peeker 

Versandbuchhandlung 



PLZ/Oft 


Telefon mH Vorwahl 


Postfach 10 28 69 
6900 Heidelberg 1 




Karte bitte vollständig ausfDilen 


Vornama. Name 



Firma 


Slreße 


PU/OfI 


Telefon mit Vorwahl 


POSTKARTE 


peeker 

Softwareabteilung 
Postfach 10 28 69 
6900 Heidelberg 1 


MMU 2.0 

Memory Managements 
Utilities 

für die Apple Ile 64K-Karte 
DOS 3.3 (und ProDOS) 

von U. Stiehl 

1984, Diskette und Manual, DM 98,- 
ISBN 3-7787-1023-1 

Insgesamt enthält die neue „MMU 2.0"-; 
Diskette über 25 Programme, die neue- 
Einsatzmöglichkeiten für die Extended 80, 
Column Card (erweiterte 80-Z-Karte =; 
64K-Karte für den Apple Ile) erschließen.! 
Ein Teil der Programme laufen auch auf. 
dem Apple II Plus, doch ist „MMU 2.0'V 
primär für 64K-Karte-Besitzer gedacht. ; 
Gerätevoraussetzung: Apple Ne mit 64K-' 
Karte oder llc 


Softbreaker 1.0 

Eine softwaremäßige Interrupt-Utility 
für die Apple Ile 64K-Karte 

von U. Stiehl 

1984, Diskette und Manual, DM 48,- 
ISBN 3-7785-1022-3 

Softbreaker ist ein Assemblerprogramm, mi| 
dessen Hilfe Programme, die sich von der 
64K-Karte (= Extended 80 Column Card für 
den Apple Ile) starten lassen, unterbrochen^ 
gespeichert, geladen und exakt an der Stelle! 
der Unterbrechung fortgeführt werden kön^ 
nen. Dadurch ist es auch möglich, Siche^ 
rungskopien von sogenannten kopierge-t 
schützten Programmen herzustellen. | 

Mit Softbreaker unterbrochene Programme 
werden komplett, d. h. die ganzen 64K ein- 
schNeßlich Language Card, in nur ca. 11 Se¬ 
kunden auf einer formatierten Diskette gesi-i 
chert, 

Gerätevoraussetzung: Apple Ile mit 64K- 
Karte 

Hüthig Software Service, 

Postfach 10 28 69, D-6900 Heidelberg : 























pEEkER -f-f-f-f-f-f 

Börse 


Verkauf Software 


TEAC 55F 600- 55B 550- ^ 
SSDD 10 St 42- 96 tpi DS 78- 
Lochverst. europ. Markenw. ^ Box 
Rglas. Schl, für 40-42- für 80- 
49- ^ Monitore 18Mhz 12" entsp. 
gr. ab 298,-. VICO, 

Seichower Str. 31, 1000 Bin 44 

APPLE-Nachbau mit 16K, Z80, 
VIA-Karte, 2 Disk-Laufwerke, Mo¬ 
nitor und Intellig. Keyboard zu 
verk., Tel. 040/701 31 01 nach 
18 Uhr. 

Flache Siemens/Rafi Tas¬ 
tatur mit 64 Zusatz-Funktionsta¬ 
sten und HEX Block. F-Tasten ver¬ 
kettbar bis 1800 Zeichen. Stan¬ 
dartbelegung Basic + Wordstar. 
VHS 920. Eproms 2716 ä 8,50. 
Tel. 06251/69742. 

PrinterPlotter Adcomp XI32SP 
mit V24 Schnittstelle. Neupreis 
5500 VHS 2400 DM. Eproms 2716 
ä 8,50 DM, Tel. 06251/69742. 

Apple II Supermodem 

V21, V23 und Bell, 300-1200 
Baud komplett auf einer Karte, mit 
Software startfertig nur 398 DM. 
Rolf Kiupel, Tel. 0431 /555427. 

Verk. neuen EPROM-Burner NP 

373,- (Fa. Springmann) für nur 
320,- VHB; Frank Fuhrmann, Tel. 
07231/21273 

Verkaufe 100 % Apple Komp. 

evtl, mit Zubehör, Preis VB 
Tel.: 061 09/64899. 


Fernschreiberinterface am 

Gameport m. Programm DM 79,- 
P. Benner, Hubertusstr. 131,4150 
Krefeld 

Z80B-Karte 6MHZ DM 600,-, 8 
Zoll Controler DM 500-, 8 Laufw. 
DS/DD Sliml. 1,2MB DM 700,-, 
Tel. 0221/605088 ab 18.00 Uhr. 


* APPLE Ile, APPLE llc * 

Maschinenschreiben, Gratisinfo, 
Demo-Diskette 10 DM, Dipl. Ing. 
M. Decker, Johannastr. 64, 4220 
Dinslaken, Tel.: 021 34/368 83 

APPLE-Programme nach Wunsch: 
Rüter, Rahdener Str. 65, 

4955 Hille 


Verkauf Hardware 


■slt■äif ■Sit ^1^ '=1^■sfr ■äif 

Landw. Spitzenprogramme 
Ab 90 DM Infomappe (3 DM) 
Fuer APPLE II 
A. Wachendorf, 

2814 Engeln 30 


160-Track-Kopierprogramm 

für normale 16-Sekt.-Disks mit 
komf. Fehlerbehandlung Maschi- 
nenspra. B. Rüter, Rahden. Str. 
65, 4955 Hille 


-STOCKMASTER II- 

Das Apple-Programm für echte 
Börsengewinne. 

TÖNGI, COMPUTER-PRAXIS 
Aspeltstr. 4, D-6500 Mainz 1 

Bagplus Basic Erweiterung 

für den Apple. 19! neue Befehle: 
Swap Instring, Inkey, Fillstr, Music 
Fillpage, Invpage für 49 DM Info 
anford. Guido Schrörs Corne- 
liusstr. 29, 4154 Tönisvorst 1 

Astrologie-Progr. mit Text, 
Progn. + Partnervergl. Probeaus- 
dr. DM 10,- Geb. Dat. Zeit u. Ort 
Ang. CH. Marquard, Postf. 145, D- 
7753 Allensbach 


Ankauf Software 


Suche Mailbox-Programm für 
APPLE Ile. Angebote an A. Krä¬ 
mer, Talstr. 37, 6057 Dietzenbach 


Kontakte 


Suche Interessierte zur Gründung 
eines APPLE-Computerclubs 

im Raum 5010 Bergheim zur pro¬ 
fessionellen Programmerstellung. 
Tel.: 02271/43562. 

Erscheinungstermin für 
Ausgabe 7/85 
ist am 24.6.1985 


Ausbildung 


Nikroproiessoren 

Computertechnili 


Praxisnahe Fachausbildung durch staatl. 
geprüften Fernlehrgang. Hard/Software, 
Maschinensprache, Programmierungstech¬ 
nik. Computer-Lernsystem wird mitgelie¬ 
fert. Information kostenlos. 

ISF-Lehrinstitut, 2800 Bremen 34/Abt. 8-184 


Verschiedenes 


MC 3470 (der Leseverstärker auf 
dem Analogboard): DM 10,-, A. 
Deckers, PF 967, 7 Stuttgart 1 

Disketten-Box 49,00 DM für 80 
5 1/4" Disketten, M. Ziemer, Bel- 
mer Str. 14, 4500 Osnabrück, 
0541/74333 o. 37859 

Suche „Schriftliches“ zu 

ROBO1000 + APPLEWORKS, 
Tel. 0211/33 5842 


Suche Gebrauchsanleitung 

Visiplot und Visitrend 

Tel.: 022 33/751 02 


für 




* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


Floppysubsystem 
für Apple II 

2 X 3,5" TEAC FD-35F 
max. 2 X 1MB 
Autopatch-Controller 
inkl. Manual und SW 
ALU-Profil-Gehäuse m. Netzt, 
komplett anschlußfertig 
nur DM 2398,- 


Telekommunikation 

Anschlußkabel 
Dataphon S21d 
Terminalsoftware 
komplett anschlußfertig 
nur DM 398,- 


TISCH & ZEHL GdbR 

Elektronicvertrieb 
Rosenstr. 33,8034 Germering 
Telefon 009/8416817 


* 

% 

* 

•51^ 


^ ^ ^ ^|c ^ ^ 


Einkaufsführer 


^ RUriDllJ 

Büroelektronik 

Keithstr. 26 • 1 Berlin 30 ■ -S? 0 30-26111 26 


^ RUriDlil 

■^ 7 - Büroelektronik GmbH 

Bachstr. 104 ■ 2 HH 76 ■ ® 0 40-22011 55 


Für weitere Informationen zu einem der in dieser Ausgabe vorgestellten 
Produkte stehen Ihnen die Produktkarten zur Verfügung 


Bitte verwenden Sie für Kleinanzeigen die vorgedruckten Antwortkarten in 
diesem Heft. 
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2030 IF P = 2 THEN POKE - 16299,0 

2040 POKE - 16297,0 

2050 POKE - 16304,0 

2060 POKE CO,0: REM jetzt drucken 

2070 POKE HI,D: REM eventuell Doppel-Hires 

2080 & : REM SUPERDUMP aufrufen 

2090 TEXT 

2100 HOME : VTAB (22} 

2110 PRINT "Nochmal? (J/N)";: GOSUB 2150 

2120 IF A$ = "J" GOTO 1570 

2130 IF A$ = "N" THEN HOME : END 

2140 GOTO 2100 

2150 GET A$: PRINT A$; 

2160 IF A$ > = "a" THEN A$ = CHR$ ( ASC (A$) - 32) 

2170 RETURN 

2180 REM 

2190 POKE KA,P1 

2200 POKE KA + 1,P2 

2210 POKE AD + 1,P * 32 

2220 POKE RF,1 

2230 POKE RI,6 

2240 POKE RI + 1,39 

2250 IF D = 1 THEN POKE RI + 1,79 

2260 POKE BO,191 

2270 POKE XF,1 

2280 POKE YF,1 

2290 POKE HI,D 

2300 POKE DP,1 

2310 POKE NE,NG 

2320 IF D = 1 THEN C$ = STR$ (DG): GOSUB 3280: GOSUB 3510 
2330 RETURN 
2340 REM 

2350 PRINT "Welches Kommando; 

2360 GET C$: IF (C$ = " ") OR (C$ = CHR$ (13)) THEN C$ = 
" 1 " 

2370 IF VAL (C$) =0 THEN C$ = "1" 

2380 RETURN 
2390 REM 
2400 HOME 

2410 PRINT "<1> 1-fach Druck": PRINT 

2420 PRINT "<2> 2-fach Druck": PRINT 

2430 PRINT "<3> 4-fach Druck": PRINT 

2440 GOSUB 2350 

2450 POKE IM, VAL (C$) - 1 

2460 RETURN 

2470 REM 

2480 HOME 

2490 PRINT "<1> Positiv": PRINT 
2500 PRINT "<2> Negativ": PRINT 
2510 GOSUB 2350 

2520 IF C$ = "2" THEN POKE X0,255 
2530 RETURN 
2540 REM 
2550 HOME 

2560 PRINT "<1> Horizontal": PRINT 

2570 PRINT "<2> Vertikal"; PRINT 

2580 GOSUB 2350 

2590 POKE DI, VAL (C$) - 1 

2600 RETURN 

2610 REM 

2620 HOME 

2630 PRINT "<1> Kein Rahmen": PRINT 

2640 PRINT "<2> Rahmen": PRINT 

2650 GOSUB 2350 

2660 POKE FR, VAL (C$) - 1 

2670 RETURN 

2680 REM 

2690 HOME 

2700 PRINT "<1> Seite 1"; PRINT 
2710 PRINT "<2> Seite 2": PRINT 
2720 GOSUB 2350 

2730 POKE AD + 1, VAL (C$) * 32 
2740 RETURN 
2750 REM 
2760 HOME 

2770 PRINT "<1> Automatisches LF nach CR": PRINT 

2780 PRINT "<2> Kein automatisches LF nach CR": PRINT 

2790 GOSUB 2350 

2800 POKE AL, VAL (C$) - 1 

2810 RETURN 

2820 REM 

2830 HOME 

2840 PRINT "<1> Unterste Drucknadel Bit 0": PRINT 

2850 PRINT "<2> Unterste Drucknadel Bit 7": PRINT 

2860 GOSUB 2350 

2870 POKE NE. VAL {C$) - 1 

2880 RETURN 

2890 REM _ 


2900 HOME 

2910 INPUT "Wiederholungsfaktor : ":I 
2920 I = ABS (I); IF I > 255 THEN 1=1 
2930 IF I = 0 THEN 1=1 
2940 POKE RF,I 

2950 INPUT "Wiederholungsdistanz: ":I 
2960 I = ABS (I); IF I > 255 THEN 1=0 
2970 POKE RD,I 

2980 INPUT "Linker Rand : ";I 

2990 I = ABS (I): IF I > 559 THEN 1=0 
3000 POKE LE + 1, INT (I / 7) 

3010 POKE LE,I - INT (I / 7) # 7 
3020 INPUT "Rechter Rand : ";I 

3030 I = ABS (I); IF I > 559 THEN I = 279 
3040 POKE RI + 1, INT (I / 7) 

3050 POKE RI,I - INT (I / 7) * 7 
3060 INPUT "Oberer Rand ; ";I 

3070 I = ABS (I): IF I > 191 THEN 1=0 
3080 POKE TP,I 

3090 INPUT "Unterer Rand : ";I 

3100 I = ABS (I); IF I > 191 THEN I = 191 
3110 POKE B0,I 

3120 INPUT "X-Faktor : ";I 

3130 I = ABS (I): IF I > 31 THEN 1=1 
3140 IF I = 0 THEN 1=1 
3150 POKE XF,I 

3160 INPUT "Y-Faktor : ";I 

3170 I = ABS (I): IF I > 31 THEN I = 1 
3180 IF I = 0 THEN 1=1 
3190 POKE YF,I 

3200 INPUT "Anzahl der Bilder : ";I 
3210 I = ABS (I): IF I > 8 THEN 1=1 
3220 IF I = 0 THEN 1=1 
3230 POKE DP,I 

3240 INPUT "Kontrollblocknummer : ";I 
3250 I = ABS (I): IF I > 255 THEN 1=1 
3260 POKE KB,I 
3270 REM 

3280 IF PEEK (DI) = 0 THEN BT = PEEK (XF) * ( PEEK (RI) + 

PEEK (RI + 1) * 7 - PEEK (LE) - PEEK (LE + 1) * 7 + 1) 

3290 IF PEEK (DI) = 1 THEN BT = PEEK (YF) # ( PEEK (BO) + 

PEEK (BO + 1) * 7 - PEEK (TP) - PEEK (TP + 1) * 7 + 1) 

3300 BT = (BT + PEEK (RD)) * PEEK (RF) * PEEK (DP) 

3310 BH = INT (BT / 256) 

3320 BL = BT - INT (BT / 256) * 256 
3330 BT$ = STR$ (BT) 

3340 L = LEN (BT$) 

3350 IF L < 4 THEN FOR I = L TO 3:BT$ = "0" + BT$: NEXT 


3360 

RETURN 



3370 

REM 




3380 

HOME 




3390 

PRINT 

"Drucker: 

";PF$; PRINT 

3400 

PRINT 

"<1> 

576 

Punkte/Zeile' 

3410 

PRINT 

"<2> 

640 

Punkte/Zeile' 

3420 

PRINT 

"<3> 

768 

Punkte/Zeile' 

3430 

PRINT 

"<4> 

1152 

Punkte/Zeile' 

3440 

PRINT 

"<5> 

1280 

Punkte/Zeile' 

3450 

PRINT 

"<6> 

856 

Punkte/Zeile' 

3460 

PRINT 

"<7> 

960 

Punkte/Zeile' 

3470 

PRINT 

"<8> 

1088 

Punkte/Zelle' 

3480 

PRINT 




3490 

GOSUB 

2350 




3500 REM hier Grafiksteuerzeichen POKEn *** 

3510 I = PB + PEEK (KB) * 64 + 16: REM Adresse der 
Grafiksteuerzeichen 
3520 ON VAL (C$) GOTO 

3530,3540,3550,3560,3570,3580,3590,3600 
3530 C$ = "n": GOTO 3610 
3540 C$ = "N"; GOTO 3610 
3550 C$ = "E"; GOTO 3610 
3560 C$ = "p": GOTO 3610 
3570 C$ = "P"; GOTO 3610 
3580 C$ = "e": GOTO 3610 
3590 C$ = "q": GOTO 3610 
3600 C$ = "Q" 

3610 POKE 1+2, ASC (C$) 

3620 FOR J = 5 TO 8: POKE I + J, ASC ( MID$ (BT$,J - 4,1)); 
NEXT : RETURN 


SUPERDUMP.EPSON 

Die folgenden Zeilen müssen im Listing SUPERDUMP.IMAGEWRITER 
geändert werden. 

1000 PF$ = "EPSON": REM Parameter-File 

1010 DG = 2: REM Grundeinstellung für Double-Hires 

1020 NG = 0: REM Grundelnstellung für Nadel 
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3400 PRINT "<1> 480 Punkte/Zeile” 

3410 PRINT ''<2> 960 Punkte/Zeile" 

3420 PRINT "<3> 960 Punkte/Zeile" 

3430 PRINT "<4> 1920 Punkte/Zeile" 

3440 PRINT "<5> 640 Punkte/Zeile" 

3450 PRINT "<6> 576 Punkte/Zeile” 

3460 PRINT ''<7> 720 Punkte/Zeile" 

3470 PRINT 
3480 GOSUB 2350 

3490 REM *** hier Grafiksteuerzeichen POKEn 
3500 I = PB + PEEK (KB) * 64 + 16: REM Adresse der 
Grafiksteuerzeichen 

3510 ON VAL (C$) GOTO 3520,3530.3540,3550,3560,3570,3580 

3520 C$ = "K": GOTO 3590 

3530 C$ = "L"; GOTO 3590 

3540 C$ = "Y": GOTO 3590 

3550 C$ = "Z": GOTO 3590 

3560 0=4: GOTO 3600 

3570 0=5: GOTO 3600 

3580 0=6: GOTO 3600 

3590 POKE 1,4: POKE 1+2, ASC (0$): POKE I + 3,BL: POKE 
I + 4,BH: RETURN 

3600 POKE 1,5: POKE 1+2, ASO ("*"): POKE I + 3,0: POKE 
I + 4,BL; POKE I + 5,BH: RETURN 

Die Zeilen 3610 und 3620 entfallen. 

Tabelle 1: Übergabeparameter 

$0300 - Kontrollblock-Nummer; Nummer des aktuellen Kontroll- 
blocks. Erklärung im Text. 

(siehe Tabelle 2) 

$0302 - Adresse des Kontrollblockes: Startadresse des 
Kontrollblocks #0 im üblichen Low/high-Format. 

$0304 - Druckschwärze: (Wertebereich 1..3) 

1 = 1-fach Druck 

2 = 2-fach Druck 

3 = 4-fach Druck 

$0306 - XOR-Byte: (Wertebereich 0, 255) 

$00 = schwarz auf weiß 
$FF = weiß auf schwarz 
$0308 - Richtung: (Werteberich 0, 1) 

0 = horizontal 
1 = vertikal 

$030A - Rahmen: (Wertebereich 0, 1) 

0 = kein Rahmen um das Bild Zeichen 
1 = Rahmen zeichnen (z.B. zum Ausschneiden) 

$0300 - Bildadresse: (Wertebereich 0..2tl6-l) 
im Low/high-Format 
$2000 für Seite 1 
$4000 für Seite 2 

oder eine beliebige andere Adresse im RAM-Bereich 
$030E - Wiederholungsfaktor: (Wertebereich 0,.255) 

Anzahl der Wiederholungen des gleichen Bildes 
nebeneinander 

$0310 - Wiederholungs-Abstand: (Wertebereich 0..255) 

Anzahl der Bits, die zwischen zwei oder mehr 
aufeinanderfolgenden Bilder frei bleiben soll. 

$0312 - linker Bildrand: (Wertebereich 0..559) 

Folgendes Format muß eingehalten werden: 

$0312 = Linker Rand mod 7 

$0313 = Linker Rand div 7 

Bsp: Linker Rand = 10 daraus folgt 

$0312 = 3, $0313 = 1 (weil 10 = 1 * 7 + 3) 

$0314 - rechter Bildrand; siehe linker Bildrand 
$0316 - oberer Bildrand: (Wertebereich 0..191) 

$0318 — unterer Bildrand: (Wertebereich 0..191) 

$031A - Xfaktor: (Wertebereich 0,.31) 

Dehnung des Bildes in X-Richtung 
$0310 - Yfaktor: siehe Xfaktor 
$031E - Hires 560: (Wertebereich 0, 1) 

0 = Drucken der normalen 280*192-Grafik 
1 = Drucken der Apple-IIe- oder Apple-IIc- 
560*192-Grafik 

$0320 - Auto-LF: (Wertebereich 0, 1) 

0 = sende LF nach CR 
1 = sende kein LF nach CR 
$0322 - Anzahl der verschiedenen Teilbilder: 

{Wertebereich 1..8) 

Bsp: 1. Teilbild (linke Hälfte) Seite 1, 

2. Teilbild (rechte Hälfte) Seite 2, 
dann setzt man: 

$300:00 20 (Adresse des 1. Teilbild) 

$322:02 (2 Teilbilder) 

Das heißt: Das 2, Teilbild wird bei $4000 beginnen, 
denn es werden pro Teilbild $2000 zur Anfangs¬ 
adresse aufaddiert. 


$0324 - Drucknadel-Richtung: {Wertebereich 0, 1) 

Für Epson Drucker = 0, 
für Imagewriter = 1, 

für alle anderen Drucker selbst ausprobieren 
$0326 — Kommando-Byte 

0 = Drucke Bild 

1 = Verschiebe von Auxiliary-RAM $2000 nach 

Main-RAM $4000 

2 = Verschiebe von Main-RAM $4000 nach 

Auxiliary-RAM $2000 

3 = Konvertiere ein Double-Hires-Bild in 2 normale 

Hires-Bilder mit 

linker Hälfte in Seite 1 ($2000) und 
rechter Hälfte in Seite 2 ($4000) 

4 = Konvertiere 2 normale Hires-Bilder von 

Seite 1 (linke Hälfte) und 
Seite 2 (rechte Hälfte) 
in ein Double-Hires-Bild. 
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Die obige Grafik wurde von Martin Schmidt erstem 
und mit Superdump ausgedruckt 


Tabelle 2: Print-File 

Epson 


Block #0: für Horizontaldruck 


Pinit: 9000- 03 

IB 

33 

17 

00 

00 

9008- 00 

00 

00 

00 

00 

00 

Pline: 9010- 04 

IB 

4B 

18 

01 

00 

9018- 00 

00 

00 

00 

00 

00 

Plfl: 9020- 03 

IB 

4A 

01 

00 

00 

9028- 00 

00 

00 

00 

00 

00 

Pexit: 9030- 02 

IB 

32 

00 

00 

00 

9038- 00 

00 

00 

00 

00 

00 


00 00 Länge 3: ESC, 

00 00 "3", CHR$(23) 

00 00 Länge 4: ESC, 

00 00 "K", OHRS(24), CHR$(1) 
00 00 Länge 3: ESC, 

00 00 "J", CHR$(1) 

00 00 Länge 2: ESC, 

00 00 " 2 " 


Block *1: für Vertikaldruck 


9040- 03 

IB 

33 

14 

00 

00 

00 

00 

Länge 

3; ESC, 

9048- 00 

00 

00 

00 

00 

00 

00 

00 

"3", 

CHR$(20) 

^050- 04 

IB 

4B 

C0 

00 

00 

00 

00 

Länge 

4: ESC. 

9058- 00 

00 

00 

00 

00 

00 

00 

00 

"K", 

CHR$(19? 

9060- 03 

IB 

4A 

01 

00 

00 

00 

00 

Länge 

3; ESC. 

9068- 00 

00 

00 

00 

00 

00 

00 

00 

"J". 

CHR$(11 

9070- 02 

IB 

32 

00 

00 

00 

00 

00 

Länge 

2: ESC. 

9078- 00 

00 

00 

00 

00 

00 

00 

00 

"2" 



CHR$(0) 


Imagewriter 


Block #0: für Horizontaldruck 


Pinit: 
Pline: 
Plfl: 
Pexit: 


9000- 06 IB 54 31 36 IB 3E 00 Länge 6: ESC, 
9008- 00 00 00 00 00 00 00 00 "T16’', ESC, ">" 
9010- 08 IB 6E IB 47 30 32 38 Länge 8: ESC, 

9018- 30 00 00 00 00 00 00 00 "n", ESC, ''G0280" 

9020- 00 00 00 00 00 00 00 00 Länge 0 

9028- 00 00 00 00 00 00 00 00 

9030- 04 IB 3C IB 41 00 00 00 Länge 4: ESC, 

9038- 00 00 00 00 00 00 00 00 ESC, "A" 
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Grundeinstellung? 

"N" 

l“fach Druck 

"l" 

Positiv 

"1" 

Horizontal 

"1" 

Kein Rahmen 

"1" 

Seite 1 

"1" 

Automatisches LF nach CR 

"1" für Epson und Imagwriter 

Unterste Drucknadel Bit 0 

"1" für Epson 

"2" für Imagewriter 

Wiederholungsfaktor 

"1" 

Wiederholungsdistanz 

M0„ 

Linker Rand 

„0M 

Rechter Rand 

"279” ' 

Oberer Rand 

"0" 

Unterer Rand 

”191" 

X-Faktor 

”1” 

Y-Faktor 

„1” 

Anzahl der Bilder 

„2- 

Kontrollblock Nummer 

”0" 

Grafikmodi 

"2" für Epson 

"4” für Imagewriter 

Anmerkung zu Bild 2: Dies sind 

zwei normale 280*192-Punkte- 

Bilder, die nebeneinander im Speicher liegen. 

aber zusammen gedruckt werden. Dies kann beim 

Drucken für Graf-quattro-Bilder benutzt werden. 

zu Bild 3: 

Apple Ile Double-Hires-Graflk? 
sonst wie Bild 1 



Block tl\ für Vertikaldruck 




Plnit: 9040- 06 IB 54 31 34 

IB 

3E 00 

Länge 6: ESC, 

9048- 00 00 00 00 00 

00 

00 00 

”T14”, ESC, ”>" 

Pline; 9050- 08 IB 6E IB 47 

30 31 39 

Länge 8: ESC, 

9058- 32 00 00 00 00 00 00 00 

”n”, ESC, "G0192" 

Plfl: 9060- 00 00 00 00 00 

00 

00 00 

Länge 0 

9068- 00 00 00 00 00 

00 

00 00 


Pexit: 9070- 04 IB 3C IB 41 

00 

00 00 Länge 4, ESC, 

9078- 00 00 00 00 00 

00 

00 00 

”<”, ESC, "A" 

Tabelle 3 




Frage 


Antwort 

zu Bild 1: 




Apple Ile Double-Hires-Grafik? 

”N" 


Bild speichern? 


"N” 


Grafik schon im Speicher? 


"N” 


Welche Grafik laden? 


<Name 

des Grafikfiles angeben> 

Ist dies das richtige Bild? 




Grundeinstellung? 




zu Bild 2: 




Anfang wie Bild 1 





cq> clatcntGChnik 


Neu Neu Neu Neu Neu 


640 KByte-Drives für den Apple //cü 

• 5V4- od. 3 V 2 -Z 0 II-Format (Teac FD55/35-F) 

• FD55-F umschaltbar auf 35/40 Track 

• Anschluß an die externe Laufwerkbuchse 

• Kein Öffnen des Gerätes erforderlich 

• Einfache. Anpassung für DOS 3.3, UCSD-Pascal und PRODOS 
durch menügeführten Patch 

• Anpassung von CP/M in Verbindung mit einer Z 80-Zusatzplatine 
in Vorbereitung 

• anschlußfertig im Gehäuse. DM 990,— 

Festplatten für Apple II (//e) 

• 5 V 4 Zoll-Format (Slimline) 

• Booten direkt von der Festplatte in DOS 3.3, UCSD-Pascal, 
PRODOS und CP/M 2.2 / 3.0 

• Gemischtbetr. mit 35/40/80/160 Track-Drives 

• Copy- und Install-Programme im Lieferumfang 

• Umfangreiches Manual 

• z. B. 12 MB form. incl. Netzteil u. Contr., 

anschlußfertig an Ihren Apple. DM 4552,- 

640 KByte-Drives für Apple II (//e) 

• 5 V 4 - od. 3V2-Zoll-Format (Teac FD55/35-F) 

• FD55-F umschaltbar auf 40 Track {Apple kompatigel) 

• Installationssoftware für DOS 3.3, UCSD-Pascal, CP/M 2.2, 
CP/M 2.23 (60K), PRODOS, AP22, ALS CP/M+ 

• Umfangreiches Handbuch 

• Anschlußfertige Auslieferung incl. Contr. und 2 Drives 

• Diskstation 5511 (2 Teac FD55-F, 1.2 MB) . . . DM 1649,— 

• Diskstation 3511 (2 Teac FD35-F, 1.2 MB) , * . DM 1540,— 


Alles für Ihren Apple 

Info bei: 

ccp-datentechnik 

Herderstraße 12 - 2000 Hamburg 76 
Telefon 040/225676 


INTUS - Lernprogramme 

in deutscher Sprache für Apple Ile und llc. 

• Rechtschreib-Trainer. 4 Übungsarten, 16 Bereiche, 
über 4000 Wörter und Kurzsätze. Sehr wirkungsvoll, 


gute Erfolge bei Legasthenie DM 125,- 

• Wortschatztrainer Englisch und Französisch, je DM 98,- 

• Maschineschreiben wie der Blitz. 20 Lektionen. DM 188,- 

• Basic-Lernprogramm. 14 Lektionen. DM 295,- 

• Lesen wie der Blitz.Wirkungsvolles Lesetraining. DM 98,- 

• Kinderschule. Beliebte Vorschul program me. DM 69,- 

• Demo-Disk, mit Kostproben aus 9 Programmen. DM 10,- 
Katalog gratis. 


INTUS Software 

Kaiserstraße 21 • 7890 Waldshut-Tiengen ■ Telefon 07751-7920 


Ihlic1l[nit®sihi 



512 K 

Speichcjrerweiterung 


Professionelle Umrüstung in 24 Std. 
Zum Superpreis von nur DM 1600,— 
Schappach Computer 66 Mannheim 
S6,36 Telefon 0621-12662 
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Betriebssystem CP/M 

Vom Monitorprogramm zum 
Mehrbenutzersystem. 

Von Jürgen Plate. 

1984, 351 Seiten, 30 Abb., 

3 Tab., geb., DM 56,- 



Das Buch beschreibt ausführ¬ 
lich die Kommandos, ihre 
genaue Syntax und die einzel¬ 
nen Teilprogramme von CP/M 
wie BIOS (systemspezifischer 
Teil), ED (Editor), ASM (Asem- 
bler, inklusive einer Beschrei¬ 
bung des 8080-Befehlssat- 
zes), SYSGEN und STAT. 

Der Beschreibung von CP/M 
ist das Listing eines komfor¬ 
tablen Monitorprogramms für 
Z-80-Computer vorangestellt, 
das eine elementare Program¬ 
mierung auf Maschinenebene 
erlaubt, solange man CP/M 
noch nicht geladen hat. Das 
kann z. B. zur Fehlersuche 
sehr nützlich sein. Am Schluß 
des Buches findet sich auch 
eine Kurzbeschreibung der 
Multitasking-ZMultiuser- 
Betriebssysteme. 


Das Buch zum Apple II 

von Erich Esders 

1985, 210 S., 119 Abb., geb, 

DM 54,- 


Rechners, sondern um 
Assemblerprogramme, die 
extensiv Monitor-ROM- 
Subroutinen benutzen. Diese 
hat der Autor nach Sach¬ 
gebieten geordnet, z. B. 
Mathematik, Graphik, String- 
Bearbeitung + Disassembler- 
Listings und diese \A/iederum 
mit Erklärungen und Applika¬ 
tionen komplettiert. Eine aus¬ 
reichende Dokumentation ist 
dabei immer ge\währleistet. Sie 
geht schrittweise vor, von der 
Aufgabenstellung über die 
Programmentwicklung bis zum 
lauffähigen Maschinenpro¬ 
gramm. Die angebotenen Bei¬ 
spiele sind ausbaufähig und 
lassen der eigenen Kreativität 
reichlichen Spielraum. Viele 
neuartige Tips und Tricks wird 
auch der beschlagene Apple- 
Benutzer begrüßen. 

Aus dem Inhalt: 

Der Mikroprozessor des 
APPLE II. Der APPLE II und 
seine Speicheraufteilung. 
APPLESOFT und seine 
Arbeitsspeicher-Bereiche. Der 
MICROSOFT-Basic-lnter- 
preter: Die Zeichen-Lese- 
Routine. Interpretierer und 
Lokalisieren Händler-Routi¬ 
nen. B AS IC/Masch inen- 
sprache-lnterfaces. 
DISAS-Generator. Unterpro¬ 
gramme im APPLESOFT- 
Basic-Interpreter: Softschalter 
und -Rags. Ausdrucks-lnter- 
pretierer. Low-Resolution- 
Graphik. Fehler-Behandlung. 
Applikationen: Arithmetik- 
Demonstration „FP-CALC". 
Hex-Dumps der Applikationen. 
BASIC-Monitor BASMON/D: 
Vorstellung der neuen Kom¬ 
mandos. Das Programm 
„BASMON/D“. Implementie¬ 
rung und Laufbeispiele. 
BASIC-Interpreter-Vergleich 
APPLE II - Commodore 64: 
Arithmetik-Demonstration 
„FP-CALC/64“. Listen; Die 
Token des APPLESOFT-Basic. 



Wenn hier vom Apple II 
gesprochen wird, so gilt das 
auch für den llplus, den lleuro- 
plus und die Ile-Versionen 
sowie für den ganzen „Apple- 
Nachbau". Das Buch ist ein 
Wegweiser durch diesen 
Rechner, um mit ihm schneller 
und effektiver zu arbeiten. Es 
geht hier weniger um das ele¬ 
mentare Programmieren des 


Apple II ROM Listing 

von Matthias Buck 
1984,116 S-, Kart., DM 59,- 


||applc ][ 

II. 11^. II t. Me 



Listing 


ttir Rjif^lc/ori OAflC 



HihfiQcoypvTsir 


Das deutsche Apple-Il-ROM- 
Listing ist da! 

Einleitung zum prinzipiellen 
Ablauf des Applesoftinter¬ 
preters; 

• Aufbau und Verarbeitung 


der/des Programmtextes - 
Variablentabelle - String¬ 
space - Fließkommaformate 

- Basicstacks (GDSUB, 
FOR-NEXT,...) 

• Beschreibung der wichtig¬ 
sten Unterprogramme, z. B. 
Variablensuche, Garbage 
Collection, Ausdrucksaus¬ 
wertung, CHRGET,... 

• Vollständig disassembllerte 
und sehr ausführlich 
deutsch kommentierte Auf¬ 
listung des Applesoft- 
BASIC-Interpreters 

• Übersichtliche Auflistung 
aller vom Interpreter benutz¬ 
ten RAM-Zeilen mit allen 
Verwendungszwecken 

• Über 150 ausführlich doku¬ 
mentierte Unterprogramme: 

- Funktion 

- Ein/Ausgabeparameter 
Auch für Apple-Ile und c und 
Kompatible! 


Apple II Pascal 

Eine praktische Anleitung 
von Arthur Luehrmann und 
Herbert Peckham 
1982, 544 S., kart-, DM 59,- 


APPLE II 
PASCAL 




mii 

£INE 
EAKTISCKE 
ANiltTUNB 


ARTHUR UEHHMANN HBtBBIT PECKHAM 


Dieses Buch ist unentbehrlich 
für alle, die die Programmier¬ 
sprache PASCAL lernen 
wollen und Zugang zu einem 
Apple Computer haben. 

Sie benötigen keinerlei Vor¬ 
kenntnisse, sondern lernen an 
Hand von Beispielen und 
Übungen, wie man selbst 
PASCAL-Programme entwik- 
kelt und sie austestet und 
werden allmählich von Kapitel 
zu Kapitel vertrauter im 
Umgang mit dem Apple 
Computer. 


Start mit Apple-Logo 
für II, Ile und llc 

Das kleine Logo-Einmaleins: 
Grafik * Text * Musik 
Von D. Senftleben 
1985, 222 Seiten, DM 35,- 
Viele Mikrocomputer-Her¬ 
steller bieten für ihre Geräte 
neben BASIC und anderen 
Programmiersprachen 
zunehmend auch Logo an. 
Durch ihre Benutzerfreund¬ 
lichkeit hat diese Sprache 
bereits viele Freunde im 
Ausbildungs- und Freizeitbe- 



Start mit, 
Apple-Logo für 
Apple II, llc und llc 




reich gefunden. Dabei ist 
Logo eine mächtige 
Sprache, die auch dem 
anspruchsvollen Anwender 
kaum Wünsche offenläßt. 
Mittels Schildkrötengrafik 
wird das kleine Logo-Einmal¬ 
eins in 12 Lektionen entwik- 
kelt. Große Bildschirmfotos 
begleiten den Leser durch 
die Lektionen. Das Buch ver¬ 
langt aktive Mitarbeit. Es hat 
seinen Platz neben dem 
Computer und gibt Hilfen 
und Anregungen für eigenes 
Forschen. Dank des bau¬ 
steinorientierten Konzepts 
kann jeder seine eigenen 
Teilbausteine erzeugen und 
sie zu neuen Blöcken 
zusammenfügen. Neben 
dem Einmaleins werden 
neue Einsatzbereiche für 
den Einsteiger erschlossen. 
Musik und Sound fehlen 
nicht. 

In diesem Buch werden die 
beiden offiziellen Logo-Pro- 
dukte der Firma Apple für die 
Rechnerfamilie Apple II, Ile 
und llc behandelt und deren 
Unterschiede verdeutlicht. 
Weiterhin sind sämtliche 
Apple-Logo-Vokabeln über¬ 
sichtlich zusammengestellt. 
Dieses Buch ist ideal zum 
problemlosen und vergnüg¬ 
lichen Start in die Apple- 
Logo-Welt. 


Apple II 

Anwenderhandbuch 

von Lon Poole 

1982, 450 a,zahlr. Abb., 

kart., DM 56,- 



Auch für diesen Computer 
haben wir den richtigen Leit¬ 
faden. Er erspart Ihnen zeit¬ 
raubendes und nutzloses 
Suchen nach der wirklich 
verwendbaren Dokumenta¬ 
tion für Ihren Computer. Das 
Anwenderhandbuch 
beschreibt zum einen den 
beliebten Apple Il-Computer 
als solchen und gibt zum 
anderen ausführlich Aus¬ 
kunft über die normalen 
Peripheriebausteine und 
Zubehör einschließlich Disk- 
Laufwerken und Drucker. Mit 
Hilfe dieses Buches werden 
Sie Ihren Apple II erfolgreich 
einsetzen, denn der Informa¬ 
tionsgehalt geht weit über 
das hinaus, was hersteller¬ 
seitig an Literatur angebpten 
wird. Sie lernen BASIC auf 
zwei verschiedene Arten zu 
verwenden. Wie man den 
Gebrauch von Klang, Farbe 
und Grafik zum Optimum 
führt. Sie erhalten Tips für 
fortgeschrittene Programm¬ 
erstellung. Sie erfahren die 
Verwendung des Maschi- 
nensprachen-Monitors 
u.v.m. Mit dem Apple II- 
Anwenderhandbuch werden 
Ihnen alle Möglichkeiten 
eröffnet, die in diesem Com¬ 
puter stecken. 


Apple II Pascal 

Sprache 

1985,197 S., DM 39,- 


Sproche 



IHli 


Apple II Pascal 

Selrfebssystem 
1985, 256 S., DM 49,- 


An'iL 

!l.^■ : 



ItMiJ 
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Hardcopy auf 
Olympia ESW100 RO 

Ein Typenraddrucker wird grafikfähig 


Das Programm OLYMPIA gibt eine Hard¬ 
copy vom hochauflösenden Grafikbild¬ 
schirm 1 oder 2 auf dem Typenraddrucker 
Olympia ESW 100 RO aus. Es ist durch 
leichte Modifikationen im Prinzip für alle 
Typenraddrucker verwendbar, die ihre ho¬ 
rizontale und vertikale Schrittweite auf 
1/60 bzw. 1/96 Zoll einstellen können. Es 
läuft auf dem Apple II mit 48K und allen 
kompatiblen Rechnern. Die hier vorge¬ 
stellte Version beginnt bei Speicherplatz 
$8000 und sollte durch BSAVE OLYMPIA, 
A$8000, L$1E8 auf Diskette gespeichert 
werden; es kann jedoch auch an anderer 
Stelle neu assembliert werden. 

Bedienung des Programms 

Die auszudruckende Grafik muß sich im 
Speicher befinden. Dann lädt man die 
Druckroutine mit BLOAD OLYMPIA und 
startet sie mit CALL 32768. Auf dem Bild¬ 
schirm erscheint jetzt die Grafikseite 1 und 
darunter die Frage, welche Seite ausge¬ 
druckt werden soll. Antworten Sie mit „1 “ 
oder „2“. 

Als nächstes müssen Sie entscheiden, ob 
das Bild positiv oder negativ erscheinen 
soll, d.h. ob ein weißer Punkt auf dem 
Bildschirm auf dem Papier schwarz oder 
weiß werden soll. Geben Sie „P“ oder 
„N“ ein. 

Als letztes müssen Sie noch die vertikale 
und die horizontale Schrittweite in 1/60 
bzw. 1/96 Zoll angeben. Als günstige Ein¬ 
gabe hat sich „02“ für die horizontale und 
„03“ für die vertikale Schrittweite heraus¬ 
gestellt. Sie erhalten dann eine Hardcopy, 
die ein quer eingespanntes DIN-A4-Blatt 
gut ausfüllt. Außerdem decken sich die 
Punkte dann sehr gut. 

Haben Sie diese Eingaben gemacht, brau¬ 
chen sie etwas Geduld, denn der Typen¬ 
raddrucker muß jetzt ca. 50000 Positionen 
ansteuern und wahlweise einen Punkt 
oder ein Leerzeichen drucken. Aber das 
Warten lohnt sich, denn die Qualität der 


Hardcopy übertrifft Matrixdrucker der glei¬ 
chen Preisklasse klar. 

Zur Schonung des Typenrades stellen Sie 
bitte den geringsten Anschlag am Drucker 
ein. Außerdem sollte man ein Endlosfarb¬ 
band verwenden, da ein Karbonband zu 
schnell verbraucht ist. 


Programmaufbau 

Es werden die zwei Unterprogramme 
COUT (Ausgabe eines Zeichens bei 
$FDED) und RDKEY (Lesen eines Zei¬ 
chens bei $FD0C) des Apple-Betriebssy¬ 
stems benutzt. 

Die druckerspezifische Befehle lauten wie 
folgt: 

ESC P - Auto-Linefeed ein-/ausschalten 
($1B$50), 

ESC $FF nn - vertikale Schrittweite defi¬ 
nieren ($1B $0C nn). 


ESC CR nn - horizontale Schrittweite de¬ 
finieren ($1B $0D nn), 

SP - Leerschritt ($20), 

CR - Wagenrücklauf ($0D), 

- Punkt ($2E). 

Das Programm ist für eine Druckerschnitt¬ 
stelle in Slot 1 ausgelegt. Festgelegt ist 
dies durch die Labels PORTDATA und 
HANDSHK. Für Slot 2 müßte PORTDATA 
zu $C0A0 und HANDSHK zu $C2C1 ge¬ 
ändert werden. Für manche Interfaces ist 
ein anderes Übergabeprotokoll erforder¬ 
lich, das Sie dem zugehörigen Handbuch 
entnehmen können. 

Für künstlerische Effekte bietet sich die 
Zeile 179 an. Dort wird festgelegt, daß der 
Drucker einen Punkt (= $2E) druckt. Als 
Alternative wären z.B. der Schrägstrich 
oder das Ausrufezeichen denkbar. Ändert 
man dann noch die Schrittweiten, ließe 
sich die Grafik „zoomen“. Weitere Mög¬ 
lichkeiten sind Ihrer Phantasie überlassen. 
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OLYMPIA 

2 HARDCOPY APPLE - ESW100-RO ** 

3 ** Von Ralf Menssen Berlin 1984 

4 ... . 

5 ^ 






6 


ORG 

$8000 






8 

COUT 

EQU 

$FDED 

;Zeichen an Bildschirm 





9 

RDKEY 

EQU 

$FD0C 

;Zeichen von Tastatur 





10 

INVERT 

EQU 

$06 

;Bild invertiert ausgeben ^ 





11 

WORKREG 

EQU 

$07 

;Arbeitsregister 





12 

BASADR 

EQU 

$1A 

;Bildschirm-Basisadresse 





13 

OUTCOUNT 

EQU 

$1C 

;Zählregister 





14 

MEDCOUNT 

EQU 

$1D 

;Zählregister 





15 

KEYCHR 

EQU 

$ED 

;Tastenspeicher 





16 

STEPY 

EQU 

$EE 

;Schrittweite Y 





17 

STEPX 

EQU 

$EF 

;Schrittweite X 





18 

ZWADR 

EQU 

$F9 

;Adressen-Übergaberegister 





19 

ENDADR 

EQU 

$FB 

;endgültige Basisadresse 





20 

INCOUNT 

EQU 

$FE 

:Zählregister 





21 

ZWERG 

EQU 

$FF 

;Zwischenergebnis 





22 

PORTDATA 

EQU 

$C090 

;Datenport Slot 1 





23 

HANDSHK 

EQU 

$C1C1 

;Handshakeport (Bit7 ^ READY) 





24 

Mt 








25 





8000 

A9 

00 


26 


LDA 

#$00 


8002 

8D 

50 C0 

27 


STA 

$C050 

HGRl 

8005 

8D 

53 

C0 

28 


STA 

$C053 

+ 

8008 

8D 

54 

C0 

29 


STA 

$C054 

TEXT 

800B 

8D 

57 C0 

30 


STA 

$C057 

einschalten 





31 









32 

** PARAMETER 

EINGEBEN 











800E 

A2 

00 


34 


LDX 

#$00 


8010 

BD 

8E 

81 

35 

ZUULIE 

LDA 

DATEN,X 

"BILDSCHIRM 1 ODER 2" 

8013 

20 

ED 

FD 

36 


JSR 

COUT 


8016 

E8 



37 


INX 


ausgeben 

8017 

E0 

2E 


38 


CPX 

#$2E 


8019 

D0 

F5 


39 


BNE 

ZUULIE 






40 


801B 

20 

0C 

FD 

41 

FALSCH 

JSR 

RDKEY 


801E 

C9 

Bl 


42 


CMP 

#$B1 


8020 

F0 

09 


43 


BEQ 

SCREENl 

;"1" oder "2" von 

8022 

C9 

B2 


44 


CMP 

#$B2 

;Tastatur holen 

8024 

D0 

F5 


45 


BNE 

FALSCH 


8026 

A0 

40 


46 


LDY 

#$40 

;HGR-Seite 2 

8028 

4C 

2D 80 

47 


JMP 

WET 


802B 

A0 

20 


48 

SCREENl 

LDY 

#$20 

;HGR-Seite 1 

802D 

A2 

00 


49 

WET 

LDX 

#$00 


802F 

86 

lA 


50 


STX 

BASADR 


8031 

84 

IB 


51 


STY 

BASADR-Fl 








8033 

A2 

2E 


53 


LDX 

#$2E 


8035 

BD 

8E 

81 

54 

BIGGI 

LDA 

DATEN,X ; 

:"POSITIV ODER NEGATIV" 

8038 

20 

ED 

FD 

55 


JSR 

COUT 

;auf Bildschirm 

803B 

ES 



56 


INX 


;ausgeben 

803C 

E0 

4A 


57 


CPX 

#$4A 


803E 

D0 

F5 


58 


BNE 

BIGGI 






59 


8040 

A9 

00 


60 


LDA 

#$00 


8042 

85 

06 


61 


STA 

INVERT 


8044 

20 

0C 

FD 

62 

SLX 

JSR 

RDKEY 


8047 

C9 

D0 


63 


CMP 

#$D0 

;Eingabe ^ P? 

8049 

F0 

08 


64 


BEQ 

POSITIV 


804B 

C9 

CE 


65 


CMP 

#$CE 

;Eingabe ^ N? 

804D 

D0 

F5 


66 


BNE 

SLX 


804F 

A9 

01 


67 


LDA 

#$01 

;invertiert 

8051 

85 

06 


68 


STA 

INVERT 

;drucken 





69 


8053 

20 

45 

81 

70 

POSITIV 

JSR 

DATAUS 


8056 

A9 

D8 


71 


LDA 

#$D8 


8058 

20 

53 

81 

72 


JSR 

HOLEN 

;Schrittweite X 

805B 

85 

EF 


73 


STA 

STEPX 

;holen 

805D 

20 

45 

81 

74 


JSR 

DATAUS 


8060 

A9 

D9 


75 


LDA 

#$D9 

;Schrittweite Y 

8062 

20 

53 

81 

76 


JSR 

HOLEN 

;holen 

8065 

85 

EE 


77 


STA 

STEPY 






78 






79 

** INITIALISIERUNG 






80 


8067 

A9 

00 


81 


LDA 

#$00 


8069 

8D 

52 

C0 

82 


STA 

$0052 

;TEXT ausschalten 

806C 

A9 

0D 


83 


LDA 

#$0D 


806E 

20 

3C 

81 

84 


JSR 

PRINT 

;CR ausgeben 

8071 

A5 

IB 


85 


LDA 

BASADR-Fl 



r+r electronic 

Elektronik • Fachliteratur « Personal-Computer 

BASF qualimetric® 

Disketten I.Wahl 

BASF-Disketten softsektohert in Pappkarton 

5. 25"-Disketten alle ohne Aufpreis mit Verslarkungsring 
Tupe Beschreibung_ 10 Stk 100 Eilt 

IXV 4QTPk l-seitig, einfoche Dichte 46,90 459,00 
1DV 40TPI, 1-seilig, doppelte Dichte 49,50 404,50 
2/967 96 TPI, 2-seiti9, doppelte Dichte 02,50 799,50 


Sicherheits-Disketten 

5 .25’’-0iskette» mit Ver&törkungering, softsektorierl 

744- 0 48 TPI, l-seitig, doppelte Dichte 49,50 485,00 

745- 0 48 TPI, 2-seUig, doppelte Dichte 72,50 679,00 

747-0 96 TPI, 2-seilig, doppelte Dichte 89,50 655,00 




Disketten - Doublen 14.50 

Mit diesem Diskettenlocher können Sie auch die Rückseite 
Ihrer SS- o DS-Disketle 2 um Abspeichern von Daten nutzen 

5,25" - Plastikbox 5.95 

Formschöne Klappbox aus Hart-PVC für ca 10 Disketten in 
den Farben grün, orange, schwarz, hellgrau, etfenbein oder 
anthrazit Bitte die gewünschte Farbe angeben Mischbar 
Staffelnreise : 1 Sl 5 95 10 St 49.50 100 St 459 - 

5,25" - Disketten-Kästen 

Diskettenbox ohne Schloß 24.95 

Repräsentative Diskelten-Box aus deutscher Fertigung in den 
Abmessungen (T x B x H) 306x174x144 mm ohne Schloß mit 
topas farbenem Deckel für ca 00 Disketten und 4 be- 
schriflbaren Stützplatten Sehr preiswert! 

Diskettenbox 29.50 

aufklappbar 
für ca 50 Disketten 
aus sloßfeslem, antistatischem 
transparentem Acryl mit 4 beweg¬ 
lichen, beschriftbaren Slützplatten 

Diskettenbox abschließbar 39.50 

für ca. 85-100 Disketten 
aus antistatischem ABS-Kunststoff, 

Decket aus hochwertigem AcryKrauch- 
glasferben). Der Trog kannplatzsparend 
in den Deckel gestellt werden 9 beweg¬ 
lichen Unterteiler mit beschrirtbaren 
Slützplatten sorgen für Übersicht 


Akustikkoppler s21 d 289.- 

300 Baud Modem CCITT V 21 Standard 



* Mit FTZ-Nummer * Gebühren- u. anmeldefrei 

* Anschluß an alle Computer mit V24-Schnitt 
stelle * VoIIduplexbetrieb * Answer- und 
Originate-Modus * MADE IN GERMANY * 

TELETERM 2+/e 198.- 

Telekommunikationssoftware für den Apple 

* ohne serielles Interface * Datenübertragung 
über den Gameport * Anschlußfertig an s21 d 

Und das bietet Teleterm 2+/e: 

Kommunikation über den Bildschirm Abspeichern empfang¬ 
ener Daten auf Diskette Daten von Disk laden und senden 
Drucken emfongener Daten Einstellen der Kommunikalions- 
perameter Die Software für Kommunikations-Profis 


Unser großer Hit auch für Ihren Apple //e: 

80 Zeichen/64kB-RAM 
I raSSSÄW für APPLE //e 

dlsch. Quaiitälsprodukt 

f jetzt nur noch... 275.~ 

Ventilator für Apple 2+/e 99.- 

Viete Zuselzkarten entwickeln zusätzliche Wärme und 
blockieren sogar noch den natürlichen Luftstrom Der 
leistungsröhige, geräuscharme Ventilator, sorgt Tür die 
notwendige Belüftung 

MASTERCLOCK 325.- 

incl Demodiskette 

Universelle Uhrenkarte 
für Apple //e und //+ 

Läuft unter DOS, ProDOS und PASCAL 



Z-80 Karte (ohne Sofware) 149.- 

ITOH/EPSON-Grafikkarte mKabei 230 
Serielle Karte f. Imagewriter 235.- 
RS-232-C-Karte (Seriell) 175- 

Disk-Controller (o,Software) 175.- 


Die Aufrüstung Ihres 128k MAC auf 
512k kostet bei uns nur: 1 590.“ 


Apple//e, //c + Macintosh 
Vorführ- und Messegeräte 
preisgünstig abzugeben. 

Ladenverkauf. Vorführun g und fach g erechte Beratun g 

r+r electronic M 

Elektronik ■ Fachliteratur ■ Personal-Computer 

6900 Heidelberg 1 Breslauerstr 29 Tel 0622 I /7B1500 
Geschäftszeiten: Mo - Fr 9-13 + 14 - 16 So 9 -13 Uhr 
Versandanschrif t; 6900 Heidelberg I Dammweg 2 
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811A; 85 FF 

173 


STA ZWERG 

81IC: A5 07 

174 


LDA WORKREG 

811E: 2k 

175 


ROL 

811F: 45 06 

176 


EOR INVERT ;eventuell 

8121: 6A 

177 


rOR invertieren 

8122: 90 05 

178 


BCC SRC 

8124: A9 2E 

179 


LDA #$2E ;Punkt drucken 

8126: 4C 2B 81 180 


JMP AUSG 

8129: A9 20 

181 

SRC 

LDA #$20 ;SPACE drucken 

812B: 20 3C 81 182 

AUSG 

JSR PRINT 

812E: CA 

183 


DEX 

812F: D0 E2 

184 


BNE ILP 

8131: C8 

185 


INY 

8132: C0 28 

186 


CPY #$28 

8134: D0 D7 

187 


BNE ELP 

8136: A9 0D 

188 


LDA #$0D 

8138: 20 3C 81 189 


JSR PRINT ;Zeile beendet 

813B: 60 

190 


RTS 


191 


813C: 2C CI CI 192 

PRINT 

BIT HANDSHK 

R13F: 30 FB 

193 


BMI PRINT ;Drucker bereit? 

8141: 8D 90 C0 194 


STA PORTDATA ;Ausgabe SLOT 1 

8144: 60 

195 


RTS 


196 


8145: A2 4A 

197 

DATAUS 

LDX #$4A 

8147: BD 8E 81 198 

HAL 

LDA DATEN,X : 

814A: 20 ED FD 199 


JSR COUT ;"SCHRITTWEITE" 

814D: E8 

200 


IMX ;auf Bildschirm 

814E: E0 5A 

201 


CPX *$5A ;ausgeben 

8150: D0 F5 

202 


BNE HAL 

8152: 60 

203 


RTS 


204 

****#*^(t^it#*******it^**5tE^ft*^^»f¥*^S ****** ******* 

8153: 20 ED FD 205 

HOLEN 

JSR COUT 

8156: A9 BF 

206 


LDA #$BF 

8158: 20 ED FD 207 


JSR COUT 

815B: 20 0C FD 208 

WIEDER 

JSR RDKEY 

815E; 85 ED 

209 


STA KEYCHR 

8160: C9 B8 

210 


CMP +$B8 ;ist die Eingabe 

8162; B0 F7 

211 


BCS WIEDER ;eine Zahl kleiner 9? 

8164: C9 AF 

212 


CMP #$AF ;sonst 

8166: 90 F3 

213 


BCC WIEDER ;Neueingabe 

8168: 85 EE 

214 


STA STEPY 

816A: 20 ED FD 215 


JSR COUT 

816D; 20 0C FD 216 

GO ZA 

JSR RDKEY 

8170: C9 C6 

217 


CMP *$C6 ;ASCII der Eingabe 

8172: B0 F9 

218 


BCS GOZA ;höher als "F"? 

8174: C9 B9 

219 


CMP #$B9 ;ist die Eingabe 

8176: B0 F5 

220 


BCS GOZA ;eine Zahl? 

8178: C9 AF 

221 


CMP #$AF 

817A: 90 Fl 

222 


BCC GOZA ;Steuerzeichen 

817C: 20 ED 

FD 223 


JSR COUT 

817F: 29 0F 

224 


AND #%00001111 ;rechtes Nibble 

8181: 85 EE 

225 


STA STEPY 

8183; A5 ED 

226 


LDA KEYCHR 

8185: 29 0F 

227 


AND #%00001111 ;rechtes Nibble 

8187: 0A 

228 


ASL :ist gleich 

8188: 0A 

229 


; linkes Nibble 

8189; 0A 

230 


ASL ;Schrittweite 

818A: 0A 

231 


ASL 

818B: 05 EE 

232 


ORA STEPY 

818D: 60 

233 


RTS 


234 

**********************************W^** 


235 

**************** DATEN ***************** 

818E: 8D 8D 

8D 236 

DATEN 

HEX 8D8D8D8D8D8D8D8D8D8D8D8D 

8191: SD 8D 

8D 8D 8D 8D 8D 

8D 

8199: 3D 
819A; 8D 8D 

8D 237 


HEX 8D8D8D8D8D8D8D8D8D8D8D8D 

819D: 8D 8D 

8D 8D 8D 8D 8D 

8D 

81A5: 8D 




81A6: C2 C9 

CC 238 


ASC "BILDSCHIRM 1 ODER 2 ?" 

81A9: C4 D3 

C3 C8 C9 D2 CD 

A0 

81B1: Bl A0 

CF C4 C5 D2 A0 


81B1: Bl A0 CF C4 C5 D2 A0 

B2 

81B9: A0 BF 




81BB: 8D 8D 

8D 239 


HEX 8D8D8D8D 

81BE: 8D 




81BF: D0 A9 

CF 240 


ASC "P)OSITIV ODER N)EGATIV ?" 

81C2: D3 C9 

D4 C9 D6 A0 CF 

C4 

81CA: C5 D2 

A0 CE A9 C5 C7 

CI 

81D2: D4 C9 

D6 A0 BF 


81D7: 8D 8D 

8D 241 


HEX 8D8D8D8D 

81DA; 8D 




81DB: D3 C3 

C8 242 


ASC "SCHRITTWEITE " 

81DE: D2 C9 

D4 D4 D7 C5 C9 

i 

Q 

81E6: C5 A0 




488 Bytes 





8073: C9 40 

86 


CMP 

#$40 

;HGR2 angewählt? 

8075: D0 05 

87 


BNE 

NEST 


8077: A9 00 

88 


LDA 

#$00 

;umschalten 

8079: 8D 55 C0 

89 


STA 

$C055 

;auf HGR2 

807C: A9 IB 

90 

NEST 

LDA 

#$1B 

;ESC ausgeben 

807E: 20 3C 81 

91 


JSR 

PRINT 


8081: A9 0C 

92 


LDA 

*$0C 

;vertikale 

8083: 20 3C 81 

93 


JSR 

PRINT 

;Schrittweite 

8086: A5 EE 

94 


LDA 

STEPY 

;ausgeben 

8088: 20 3C 81 

95 


JSR 

PRINT 


808B: A9 IB 

96 


LDA 

#$1B 

;ESC 

808D: 20 3C 81 

97 


JSR 

PRINT 


8090: A9 0D 

98 


LDA 

#$0D 

;horizontale 

8092: 20 3C 81 

99 


JSR 

PRINT 

;Schrittweite 

8095: A5 EF 

100 


LDA 

STEPX 

;ausgeben 

8097: 20 3C 81 

101 


JSR 

PRINT 


809A: A9 IB 

102 


LDA 

#$1B 

;ESC 

809C; 20 3C 81 

103 


JSR 

PRINT 


809F: A9 50 

104 


LDA 

#$50 

;AUTO-LINEFEED 

80A1: 20 3C 81 

105 


JSR 

PRINT 

;einschalten 


106 

^^#*^it*********************************** 


107 

*********** DRUCKROUTINE 

*************** 


108 

* 



* 

80A4; A9 03 

109 


LDA 

#$03 


80A6: 85 IC 

110 


STA 

OUTCOUNT 


80A8: 20 CF 80 

111 

SCHLl 

JSR 

SCHL2 


80AB: 18 

112 


CLC 



80AC: A5 lA 

113 


LDA 

BASADR 


80AE: 69 28 

114 


ADC 

#$28 


80B0: 85 lA 

115 


STA 

BASADR 


80ß2: A5 IB 

116 


LDA 

BASADR+1 


80B4: 69 00 

117 


ADC 

#$00 


80B6: 85 IB 

118 


STA 

BASADR+1 


80B8: C6 IC 

119 


DEC 

OUTCOUNT 


80BA: D0 EC 

120 


BNE 

SCHLl 


80BC: A9 IB 

121 


LDA 

#$1B 

;AUTO-LINEFEED 

80BE: 20 3C 81 

122 


JSR 

PRINT 

;ausschalten 

80C1: A9 50 

123 


LDA 

#$50 


80C3: 20 3C 81 

124 


JSR 

PRINT 


80C6: A9 00 

125 


LDA 

#$00 


80C8: 8D 51 C0 

126 


STA 

$C051 

;TEXT wieder 

80CB: 8D 54 C0 

127 


STA 

$C054 

;anschalten 

80CE: 60 

128 


RTS 


;Programmende 


129 

**************************************** 


130 

********** UNTERPROGRAMME ************** 


131 

** 



** 

80CF: A6 lA 

132 

SCHL2 

LDX 

BASADR 


80D1: A4 IB 

133 


LDY 

BASADR+1 


80D3; 86 F9 

134 


STX 

ZWADR 


80D5: 84 FA 

135 


STY 

ZWADR+1 


80D7: A9 08 

136 


LDA 

#$08 


80D9; 85 ID 

137 


STA 

MEDCOUNT 


80DB: 20 F0 80 

138 

INLOP 

JSR 

SCHL3 


80DE: 18 

139 


CLC 



80DF: A5 F9 

140 


LDA 

ZWADR 


80E1: 69 80 

141 


ADC 

#$80 


80E3: 85 F9 

142 


STA 

ZWADR 


80E5; A5 FA 

143 


LDA 

ZWADR+1 


80E7: 69 00 

144 


ADC 

#$00 


80E9: 85 FA 

145 


STA 

ZWADR+1 


80EB: C6 ID 

146 


DEC 

MEDCOUNT 


80ED: D0 EC 

147 


BNE 

INLOP 


80EF: 60 

148 


RTS 




149 

^*^*5^*********************************** 

80F0: A6 F9 

150 

SCHL3 

LDX 

ZWADR 


80F2: A4 FA 

151 


LDY 

ZWADR+I 


80F4: 86 FB 

152 


STX 

ENDADR 


80F6: 84 FC 

153 


STY 

ENDADR+1 


80F8: A9 08 

154 


LDA 

#$08 


80FA: 85 FE 

155 


STA 

INCOUNT 


80FC: 20 0B 81 

156 

LOOP 

JSR 

SCHL4 


80FF: 18 

157 


CLC 



8100; A5 FC 

158 


LDA 

ENDADR+1 


8102: 69 04 

159 


ADC 

+$04 


8104: 85 FC 

160 


STA 

ENDADR+1 


8106: C6 FE 

161 


DEC 

INCOUNT 


8108; D0 F2 

162 


BNE 

LOOP 


810A: 60 

163 


RTS 




164 

**************************************** 

810B: A0 00 

165 

SCHL4 

LDY 

#$00 


810D: ’Bl FB 

166 

ELP 

LDA 

(ENDADR), 

Y ;Byte aus 

810F: 85 FF 

167 


STA 

ZWERG 

Bildschirmspeicher 

8111: A2 07 

168 


LDX 

#$07 

:7 Bildpunkte 

8113: A9 00 

169 

ILP 

LDA 

#$00 


8115; 85 07 

170 


STA 

WORKREG 


8117: A5 FF 

171 


LDA 

ZWERG 

;Bildpunkt 

8119: 6A 

172 


ROR 

;holen 
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Apple DOS 3.3 

von Ulrich Stiehl 

2. Aufl. 1984, 203 S., kart., 

DM 28,- 

Dies ist die erste deutschspra¬ 
chige Darstellung des Disket¬ 
tenbetriebssystems DOS 3.3 
für den Apple ll/ll Plus/Ile, die 
sich sowohl an Applesoft- als 
auch an Assembler-Program¬ 
mierer wendet. Sinngemäß ist 
das Buch zweigeteilt: 

Der erste Teil behandelt aus¬ 
führlich die dem Applesoft-Pro- 
grammierer zur Verfügung ste¬ 
henden DOS-Befehle, wobei 
die Textfiles wegen ihrer gro¬ 
ßen Bedeutung und der ver¬ 
gleichsweise komplizierten 
Handhabung besonders darge¬ 
stellt werden. Viele Textfile- 
Tricks werden hier zum ersten¬ 
mal geschildert. 

Aber auch im zweiten Teil fin¬ 
det der reine Applesoft-Pro- 
grammierer insbesondere in 
dem Kapitel „Vermischte Tips, 
Tricks und Patches“ zahlreiche 
Anregungen. Im übrigen ist der 
zweite Teil für Assembler-Pro¬ 
grammierergedacht. Neben ei¬ 
nerdetaillierten Beschreibung 
der DOS-lnterna enthält dieser 
Teil elf vollständige RWTS-An- 
wenderprogramme-z. B. 
CPM-Refiner, DOS-lose Da¬ 
tendisk, TSL-Maker, File- 
Reader, Pseudo-Disk-Driver 
und Fastbrun-Routine-, die 
Techniken enthüllen, die bis¬ 
lang noch niemals publiziert 
worden sind. Dieses DOS- 
Buch ist deshalb der unent¬ 
behrliche Begleiter für jeden 
Apple-Programmierer. 


Apple II 

Basic Handbuch 

von Douglas Hergert 
304 Seiten, 116 Abb. 

DM 32,- 

Das Buch ist als Nachschlage¬ 
werk konzipiert, daß seinen 
Platz neben jedem APPLE II, 
ll-i' und Ile haben sollte. Es 
richtet sich an Anfänger und 
fortgeschrittene Program¬ 
mierer. 



BASIC 

HAND 

BUCH 


Aus der Praxis heraus präsen¬ 
tiert der Autor Tips und Vor¬ 
schläge, die das Programmie¬ 
ren leichter und zugleich effi¬ 
zienter machen. Alle Applesoft- 
und Integer-BASIC-Begriffe 
sind alphabetisch aufgelistet 
und werden eingehend erklärt. 


Dazu werden alle DOS-Befehle 
(neben vielen Begriffen der 
Computerterminologie) vorge¬ 
stellt. 

Beispielprogramme zeigen 
dem Nutzer, wie jeder Befehl 
funktioniert und helfen, die rich¬ 
tige Anwendung zu üben. Un¬ 
ter anderem lernt der Leser 
den besten Weg, um FOR/ 
NEXT-Schleifen und IFyTHEN- 
Entscheidungen für seine 
Zwecke einzusetzen. 

Durch die präzise und leicht 
verständliche Sprache des Au¬ 
tors werden auch schwierige 
Befehle einfach in der Anwen¬ 
dung. 


Apple Maschinen¬ 
sprache 

von Don und Kurt Inman 
1984, 208 S., zahlr. Abb. und 
Tabellen, DM 49,- 

APPLE 

M^CHINEN 

SPRACHE 



Dieses Buch ist wahrscheinlich 
die beste Einführung in die 
6502-Programmierung für den¬ 
jenigen Assembler-Anfänger, 
der zuvor noch nie ein Maschi¬ 
nenprogramm geschrieben 
hat. 

Aus dem Inhalt: 

Applesoft II BASIC-kurzge¬ 
faßt - Alles über Zeichen - Al¬ 
les über Speicher - Alles über 
Maschinenbefehle - Maschi¬ 
nenprogramme mit BASIC ein¬ 
geben - Graphik - Text - Ton - 
Arithmetik - Was tun mit den 
Maschinenprogrammen 


Apple II 
leicht gemacht 

von Joseph Kascmer 
1984,185 S., zahlr. Abb., kart., 
DM 28,- 

Dies ist ein Buch, wie es sich 
jeder Apple-Anfänger nur wün¬ 
schen kann: Schrittweise, 
leichtverständliche Anleitung 
zum Umgang mit dem Apple 
mit einigen durchsichtigen, un¬ 
komplizierten Beispielen in Ap¬ 
plesoft, die ihn nicht Abschrek- 
ken, sondern ermutigen sollen, 
sich mit dem Gerät näher ver¬ 
traut zu machen. Damit ist „Ap¬ 
ple II leicht gemacht“ das idea¬ 
le Einsteigerbuch für den rei¬ 
nen Anwender, der nicht nur 
„auf den Knopf drücken“, son¬ 
dern zumindest einige Details 
aus der Black Box namens Ap¬ 
ple erfahren will. 



Aus dem Inhalt: 

Kontrolle des Geräts - Schrei¬ 
ben und Zeichnen auf dem 
Bildschirm - Geheimnisvolle 
Abläufe: Programme-Ver¬ 
schiedene Eingriffsmöglichkei¬ 
ten- Mobile Speicher: Disket¬ 
ten - Kontrollmöglichkeiten - 
Das Innenleben 


Apple Assembler 

Tips und Tricks 

von Ulrich Stiehl 

1984, 226 S., 3 Abb., kart., 

DM 34,- 

„Apple Assembler“ wendet 
sich an alle, die bereits Anfän¬ 
gerkenntnisse der 6502-Pro- 
grammierung haben-z. B. 
aufgrund des Buches „Apple 
Maschinensprache“ - und nun¬ 
mehr ein Nachschlagewerk für 
ihren Apple II Plus/Ile/Ilc su¬ 
chen, in dem alle wichtigen 
ROM-Routinen sowie eine 
Vielzahl sonstiger Hilfspro¬ 
gramme in einer systemati¬ 
schen Form zusammengestellt 
werden. Insgesamt umfaßt die¬ 
ses Buch über 40 Utilities, dar¬ 
unter mehrere völlig neuartige 
Programme wie Double-Lores, 
Double Hires, Screen-Format 
u. a. 

Der erste Teil enthält ein Repe¬ 
titorium der wichtigsten Befeh¬ 
le, Adressierungsarten und 
sonstigen Besonderheiten des 
6502. 

Im zweiten Teil werden alle 
Adressen des Monitors zusam¬ 
mengestellt, die für Assembler- 
Programmierer von Nutzen 
sein können. Darüber hinaus 
findet der Leser Unterroutinen 
für hexadezimale Addition/ 
Subtraktion/Multiplikation/Divi¬ 
sion, Binär-Hex-ASCII-Um- 
wandlung usw. 

Der dritte Teil befaßt sich mit 
der Speicherverwaltung der 
Language Card und der lle- 
64K-Karte und enthält Move- 
Programme zum Verschieben 
von Daten in die und aus der 
Language Card sowie der 64K- 
Karte. 


Der vierte Teil ist dem Ap- 
plesoft-ROM gewidmet und li¬ 
stet eine große Anzahl nützli¬ 
cher Interpreter-Adressen. Bei 
den Utiiity-Programmen liegt 
das Schwergewicht auf Fließ¬ 
kommamathematik einschließ¬ 
lich Print Using. 

Der letzte Teil behandelt den 
Text- und Graphikspeicher. 
Neben einem professionellen 
Maskengeneratorprogramm 
werden auch Routinen zur 
Double-Lores- und Double-HL- 
res-Grafik vorgestellt. 

Arbeiten mit dem 
Macintosh 

von N. Hesselmann 
416 Seiten, 320 Abb. DM 54,- 
Das Buch erklärt den Umgang 
mit dem Macintosh von Grund 
auf, wobei auch auf elementare 
Dinge eingegangen wird, wie 
z. B. die Benutzung der Tasta¬ 
tur und der Maus, das Einlegen 
von Disketten und den System¬ 
start. Ganz besonderes Augen¬ 
merk wird auf die Erklärung der 
speziellen Software-Umge¬ 
bung des Macintosh gelegt, 
wobei das Menü- und Fenster¬ 
konzept sowie das Anwählen 
durch Piktogramme gekenn¬ 
zeichneter Funktionen klar dar¬ 
gestellt wird. 



I ^krtrettennütaeni , 

Mlacinta^ 



Der Umgang mit den Program¬ 
men MacPaint und MacWrite 
wird erläutert; dies geschieht 
teilweise anhand von Beispie¬ 
len, die leicht nachvollzogen 
werden können. Ein umfangrei¬ 
ches Kapitel ist dem für den 
Macintosh erhältlichen Micro- 
soft-BASIC gewidmet. 

BASIC Übungen 
für den Apple 

von J. P. Lamoitier 

1983, 252 S., zahlr. Abb., kart., 

DM 38,- 

Das Buch ist konzipiert, allen 
Apple-Anwendern Applesoft- 
BASIC durch praktische Übun¬ 
gen an Hand von reellen Pro¬ 
grammen beizubringen. Daten¬ 


verarbeitung, Statistik, kom¬ 
merzielle Programme, Spiele 
und vieles mehr. Jede Übung 
beinhaltet eine Beschreibung 
der Problemstellung, eine Ana¬ 
lyse der Lösungsmöglichkei¬ 
ten, ein Flußdiagramm und ein 
fertiges Programm samt Pro¬ 
belauf. 



Aus dem Inhalt; 

Ihr erstes BASIC-FIrogramm - 
Flußdiagramme- Übungen mit 
Integerzahlen - Elementare 
Beispiele aus der Geometrie - 
Allgemeine Übungen aus der 
Datenverarbeitung - Mathema¬ 
tische Berechnungen - Kauf¬ 
männische Berechnungen - 
Spiele - Operations Research 
- Statistik 


Apple ProDOS 
für Aufsteiger 

Band 1 

von Ulrich Stiehl 
1984, 202 S., kart-, DM 28,- 
ProDOS ist das neue „profes¬ 
sionelle DOS“ (Professional 
Disk Operating System) für den 
Apple Ile sowie den mit einer 
Language Card ausgestatteten 
Apple II Plus. Band 1 befaßt 
sich mit den theoretischen 
Grundlagen von ProDOS, der 
internen und externen Spei¬ 
cherorganisation und enthält 
grundlegende Beispielpro¬ 
gramme für Assembler-Pro¬ 
grammierer sowie generelle 
Untersuchungen zum BASIC- 
SYSTEM. Da ProDOS über er¬ 
heblich vielfältigere und lei¬ 
stungsfähigere, zugleich je¬ 
doch erheblich kompliziertere 
Dateistrukturen verfügt, sind 
theoretische Kenntnisse von 
ProDOS unabdingbar, wenn 
man die Features von ProDOS 
voll ausschöpfen will. 

Aus dem Inhalt; 

Ein erster Überblick - ProDOS 
und DOS 3.3 - Interne Spei¬ 
cherorganisation - Externe 
Speicherorganisation - MLI 
(Machine Language Interface) 
- ProDOS für Applesoft-Pro- 
grammierer 


Beachten Sie die Buch-Shop-Karte 
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Fourier-Analyse 

von Peter Walber 


Joseph de Fourier (alter Stich) 1768-1830 


Jeder, der einmal vor das Problem gestellt 
war, eine Funktion zu approximieren, wird 
sicher bereits auf die Fourier-Analyse ge¬ 
stoßen sein, vor allem bei der Darstellung 
von unstetigen periodischen Funktionen, 
aiso mathematisch schwierig darstellbaren 
Kurvenzügen. 

Grundlage des Programms ist die von 
Fourier im Jahre 1822 aufgestellte Theo¬ 
rie, die besagt, daß sich beliebige periodi¬ 
sche Funktionsverläufe als Linearkombi¬ 
nation von Sinus- und Cosinus-Termen 
darstellen lassen. Mathematisch formuliert 
sieht die Theorie so aus: 


f(t) = ao + 2 ak cos(kcot) -F b^ sin(kü)t) 


mit den sog. Fourier-Koeffizienten: 


Sk = f cos(ka)t) dt 
' 0 


bk = i / f(t) sin(k(üt) dt 
' 0 

dabei muß die in den Integralen auftreten¬ 
de Funktion f(t) in einem Intervall 0 < t < T 
vorliegen (siehe Abb. 1). 

Bei manchen Funktionen sind die auftre¬ 
tenden Integrale sehr schwierig zu be¬ 
rechnen, oder es gelingt nicht, den Kur¬ 
venzug mathematisch zu beschreiben 
(z.B. Brummspannung eines Netzteiles). 
Genau hier kann das Programm einsetzen. 


Ich habe folgende Gliederung des Pro¬ 
gramms vorgesehen: 

1. Analyse eines Kurvenzuges nach Stütz¬ 
stellen (FOURIER.MAIN). 

2. Ausgabe des Frequenzspektrums 
(FOURIER.SPEC). 

3. Synthese einer Funktion aus Fourier- 
Koeffizienten (FOURIER.SYN). 

Die Aufteilung des Programms in drei ein¬ 
zelne selbständige Module wurde aus 
Speichergründen gewählt, da neben gro¬ 
ßem Komfort auch eine grafische Auswer¬ 
tung geboten werden sollte. 
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Das Modul FOURIER.MAIN 

Das Modul gliedert sich in die folgenden 
Teile: 

- Initialisierung und Hauptmenü (Zeilen 
1000-1420). 

- Eingabe der Stützstellen wahlweise von 
Diskette, Tastatur oder von einer analyti¬ 
schen Funktion (Zeilen 1450-1750). 

- Berechnung der Fourier-Koeffizienten 
(Zeilen 1760-2230). 

- Ausgabe der Ergebnisse und Plot der 
Funktion (Zeilen 2240-2730 und 
2980-3500). 

- Abspeichern der berechneten Daten (ab 
Zeile 3630). 

Es folgt nun eine genauere Beschreibung 
der wichtigen Teile im Programm, ver¬ 
mischt mit den unbedingt notwendigen 
Hintergrundinformationen über die Fou¬ 
rier-Analyse. 


Eingabe der Stützstellen 

Da wir nicht in der Lage sind, eine unendli¬ 
che Reihe zu berechnen, müssen wir eine 
Obergrenze festlegen. Wir brechen also 
die Reihe ab und approximieren nur mit 
einem trigonometrischen Polynom vom 
Grade n. 

n 

f(t) = aQ + 2 ak cos(ka)t) + bk sin(kcot) 

Der Algorithmus von Runge (1), der hier 
verwendet wird, erwartet 2 • n Stützstellen. 
Diese müssen dem Graphen in äquidi¬ 
stanten Intervallen entnommen werden. 
Betrachten wir hierzu die in Abb. 2 darge¬ 
stellte Rechteckfunktion. Die Funktions¬ 
werte f(0) = 1,f(1) = 1,f(2) = 1,f(3) = 1, 
f( 4 ) = 1 f( 5 ) = 0, f(6) = 0, f(7) = 0 können 
dem Graphen entnommen werden. Hier¬ 
bei ist dt der Abstand auf der t-Achse 
zwischen dem Wert f(i) und f(i + 1). 


ult^ 


Ua > I 


01 2345ltl!T 



Berechnung der Koeffizienten 

Der hier verwendete Algorithmus verlangt 
vom Programm die Aufsummierung nach 
den folgenden Formeln: 

b, = l 2f(t)sin^) 

Der Beweis folgt aus den Orthogonalitäts¬ 
relationen für trigonometrische Funktionen 
und ist hier sicher nicht von Interesse (2). 
Dieses Gleichungssystem ist nur mit gro¬ 
ßem Rechenaufwand lösbar. Wir benutzen 
deshalb die Symmetrie-Eigenschaften der 
Sinus- bzw. Cosinus-Funktion. 



Wie aus Abb. 3 ersichtlich ist, wiederholen 
sich alle Funktionswerte nach x = tc / 2 . 
Weiter gilt sin(x) = cos(jt/2 - x). Wir bilden 
daher zunächst die zweite Halbperiode auf 
die erste ab und danach die zweite Viertel¬ 
periode auf die erste. Dies wurde in den 
Zeilen 4500-4600 verwirklicht. Die zuge¬ 
hörigen Sinus-Werte werden in den Zeilen 
1610-1640 im Feld X(l) abgelegt. In den 
Zeilen 1750-2220 erfolgt dann die eigent¬ 
liche Berechnung der Fourier-Koeffizien¬ 
ten. Dieser Algorithmus ist von Sarnow in 
(4) beschrieben worden. Ab Zeile 2230 
werden die Ergebnisse ausgegeben, ent¬ 
weder auf den Bildschirm oder sofort zum 
Drucker. Die Druckerausgabe muß even¬ 
tuell an einen anderen Drucker angepaßt 
werden (Zeile 2800 und 4620). 

Eine weitere Option dieses Moduls ist die 
Berechnung der Fourier-Sinus-Reihe. 
Dies ist die Darstellung der Reihe in der 
Form: 


00 

f(t) = Co + 2 Ck sin(ko)t + qpk) 


Grafik-Auswertung 

Damit das Programm nicht nur zur Schaf¬ 
fung von Datengräbern dient, wurde eine 
komfortable Grafik-Auswertung eingebaut 
(2400 ff.). Dabei wird zuerst die Funktion 
mit wählbarem Grad des trigonometri¬ 
schen Polynoms geplottet. Dadurch kann 
man sich die Genauigkeit der Approxima¬ 
tion Schritt für Schritt ansehen. Danach 
wird die Funktion noch einmal nach den 
eingegebenen Stützstellen gezeichnet. 
Die Beschriftung der Achsen erfolgt durch 
POKEs von bestimmten Bitmustern direkt 
in den Grafik-Speicher. 


Speicherung der Ergebnisse 

Im Anschluß daran besteht die Möglich¬ 
keit, den Plot als Bild-File abzuspeichern 
oder eine Hardcopy auszugeben. Weiter 
wird erfragt, ob die Koeffizienten oder die 
Funktionswerte als Datei für spätere Be¬ 
trachtungen gesichert werden sollen. Man 
kann sich damit eine regelrechte Biblio¬ 
thek von Funktionen anlegen. Ab Zeile 
3630 folgen dann einige Unterprogramme, 
die die beschriebenen Möglichkeiten ver¬ 
wirklichen. 

Eine Besonderheit liegt in der Handha¬ 
bung der Daten-Files. Dem Dateinamen 
wird automatisch ein Suffix angehängt. 
Sollen also Koeffizienten abgespeichert 
werden, so gibt man z.B. „DREIECK“ als 
Dateiname an; auf der Diskette erscheint 
dann eine Datei mit dem Namen „DREI- 
ECKKOEFF“. Will man die Daten wieder 
einiesen, dann muß man auf die Frage 
nach der Datei den vollen Namen ange¬ 
ben, also „DREIECKKOEFF“. 

Im Programm wurde als maximaler Grad 
der Fourier-Reihe 24 festgelegt. Dies ist 
sicher für den normalen Fall ausreichend. 
Ein Nachteil liegt ohne Zweifel in der Un¬ 
genauigkeit bei der Analyse sehr unsteti¬ 
ger Funktionen. Das Verfahren wird mit 
zunehmender Stützstellenzahl natürlich 
exakter. Genauere Untersuchungen zei¬ 
gen jedoch, daß der Rechenaufwand nicht 
proportional steigt, sondern viel stärker. 
Außerdem kommt noch die mangelhafte 
Rechengenauigkeit des Basic-Interpreters 
zum Tragen. Abhilfe schafft zumindest teil¬ 
weise der Übergang auf ein FORTRAN- 
Programm mit Double-Precision (3). Die 
hier erzielten Ergebnisse stellen aber si¬ 
cher einen sinnvollen Kompromiß dar. 

Das Programm wurde für 80 Zeichen/Zeile 
geschrieben und benutzt deshalb CtrI-L 
statt des HOME-Befehls. Da beim Ile mit 
erweiterter 80-Zeichen-Karte und dem llc 
die HGR2 in Verbindung mit der 80-Zei- 
chendarstellung nicht aufgerufen werden 
kann, wird vor der Grafik auf Normalausga¬ 
be zurückgeschaltet. 

Durch den menügesteuerten Aufbau sind 
Bedienungsfehler weitgehend ausge¬ 
schlossen. 

Beispiele 1 zeigt die Möglichkeit des^Pro- 
gramms. Bei der dargestellten Rechteck¬ 
funktion wurde der Grad n = 5 und n = 12 
gewählt. Hierbei wird die unterschiedliche 
Güte der Approximation deutlich. 

Die folgenden Module FOURIER.SYN und 
FOURIER.SPEC können aus Platzgründen 
nicht abgedruckt werden und sind daher 
nur auf der Peeker Sammeldiskette ent¬ 
halten. 
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Das Modul FOURIER.SYN 


FOI.IR I ER-VSE 


F 0 1.1 R I E R - H A L V S. E 


Der Aufruf erfolgt im Hauptmenü mit „2“ 
für Synthese. Dieser Teil bietet die Mög¬ 
lichkeit,aus früher berechneten Koeffizien¬ 
ten eine Funktion darzustellen. Dies ge¬ 
schieht mit wählbarem Grad des trigono¬ 
metrischen Polynoms. Das Modul selbst 
besteht zum größten Teil aus Teilen des 
Hauptprogramms FOURIER.MAIN. 

Das Modul FOURIER.SPEC 




Der Aufruf erfolgt mit der Wahl von „3“ für 
Frequenzspektrum im Hauptmenü. Bevor 
das Modul genauer beschrieben wird, wol¬ 
len wir zunächst die nötige Theorie kurz 
erläutern. Das „Spektrum“ einer Funktion 
gibt Auskunft über die Beträge der enthal¬ 
tenen Schwingungsanteile. Man kann also 
aus der Darstellung sofort entnehmen, 
welche Frequenzanteile in welcher Stärke 
vertreten sind. Die Verwirklichung sieht 
nun wie folgt aus: 

- Eingabe der Koeffizienten von wahlwei¬ 
se Disk oder Tastatur (Zeilen 1000-1160). 


1160-1420). Hierzu gehört die Erstellung 
des Koordinatenkreuzes und eines Binär- 
Feldes zur Beschriftung des Plots. 

-Zeichnen des Plots (Zeilen 1450-1730). 
Dazu wird vorher auf den maximalen Wert 
normiert und dann proportional zur Größe 
des betreffenden Koeffizienten ein Strich 
bei der zugehörigen Frequenz gezeichnet. 
Dabei sind die Koeffizienten a(l) durchge¬ 
zogen und die b(l) gestrichelt dargestellt. 
-Abspeichern des Bildes, der Koeffizien¬ 
ten und die Hardcopy-Möglichkeit (Zeilen 


Die Zeilen, die die Files anlegen, sind be¬ 
reits in FOURIER.MAIN vorhanden. 

Benötigte System-Konfiguration: Apple II, 
DOS 3.3, 80-Zeichenkarte, Drucker mit 
Grafik-Interface. 

Literatur: 

(1) Zurmühl, Praktische Mathematik für In¬ 
genieure und Physiker, Springer 1965 

(2) Hamming, Numerical Methods for 
Scientists and Engineers, McGraw-Hill, 
1962 

(3) McCracken, FORTRAN 


- Vorbereiten des Plots (Zeilen 1750-Ende). 


FOURIER.MAIN 

1000 REM *** Fourier-Analyse *** 

1010 REM Peter Walber, Mai '84 *** 

1020 REM 

1030 HIMEM: 16384 
1040 D$ = CHR$ (4) 

1050 PRINT D$;"PR#3" 

1060 DIM Y(50),X(50).YY(50),SS(25),DS{25),DD(25) 

1070 DIM A(25},B(24) ,YI(160),ZZ(50) ,SD(25) 

1075 DIM AA(25),PHI(25) 

1080 PRINT CHR$ (12) 

1090 FOR I - 0 TO 79; PRINT : NEXT I 

1100 PRINT " Fourier-Analyse" 

1110 FOR I = 0 TO 79: PRINT : NEXT I: PRINT 

1120 PRINT " 

1130 PRINT "Optionen:": PRINT " FOR I - 0 TO 72: PRINT 

: NEXT I: PRINT 
1140 PRINT " 

1150 PRINT TAB(20)"Analyse einer einzugebenden Funktion 
1 "; 

1155 PRINT 
1160 PRINT " "; 

1180 FOR I = 1 TO 71: PRINT " NEXT I 

1185 PRINT 

1200 PRINT " "; 

1210 PRINT TAB(20)"Synthese einer gesuchten Funktion 
2";: PRINT 
1220 PRINT " "; 

1230 FOR I = 1 TO 71: PRINT " ";: NEXT I 
1240 PRINT 
1250 PRINT " 

1260 PRINT TAB(20)"Frequenzspektrum ausgeben 
3":: PRINT 
1270 PRINT " 

1280 FOR I = 1 TO 71: PRINT " ":: NEXT I 

1290 PRINT 

1300 PRINT " "; 

1310 PRINT TAB(20)"Ende 
4";: PRINT 
1320 PRINT " "j 

1330 FOR I = 1 TO 71: PRINT " : NEXT I 

1340 PRINT 

1350 FOR I = 0 TO 79: PRINT ;: NEXT I 

1360 PRINT TAB(20)"Bitte die Eingabe der Programmwahl" 

1380 FOR I = 0 TO 79: PRINT NEXT I: PRINT 

1390 INPUT "1,2,3,4 ";IN 

1400 IF IN < 1 OR IN > 4 THEN 1390 _ 


(4) Sarnow, mc 1/84, S. 82-85 


1410 ON IN GOSUB 1460,3520,3570,3610 
1420 GOTO 1100 
1430 REM 

1440 REM *** Start der Analyse *** 

1450 REM Eingabe der Stützstellen 
1460 REM 

1470 PRINT CHR$ (12) 

1480 PRINT "Analyse einer Funktion nach Runge" 

1490 PRINT : PRINT "Notwendige Bedingung : Grad der Reihe 
geradzahlig " 

1500 PRINT 

1510 PRINT : PRINT "Eingabe der Stützstellen von (D)isk, 
(T)astatur oder von einer": PRINT : PRINT 
"analytischen (F)unktion" 

1520 GET IN$ 

1530 IF IN$ - "D" THEN GOSUB 3940:DT$ = "J": GOTO 1590 
1540 IF IN$ < > "T" AND IN$ < > "F" THEN 1460 
1550 PRINT 

1560 INPUT "Grad der Fourier-Reihe: "jN 

1570 IF N / 2 < > INT (N / 2) THEN PRINT : PRINT "Bitte 

,.N.. muß durch zwei teilbar sein.": PRINT GOTO 1560 
1580 IF N > 24 THEN PRINT : PRINT "Nmax=24":N = 24 
1590 P = N / 2:M = 2 * N 
1600 IF IN$ - "F" THEN GOSUB 4310 
1610 DX - 3.141592654 / N 
1620 FOR I = 0 TO P 

1630 X(I) = SIN (I ^ DX):X(N - 1} = X(I):X(N + I) = - 
X(I):X(M - I) = X(N + I) 

1640 NEXT I 

1650 IF DT$ = "J" THEN 1700 

1660 IF IN$ = "F" THEN 1700 

1670 FOR I - 0 TO M - 1 

1680 PRINT "Y(";I;")= INPUT "";Y(I) 

1690 NEXT I 

1700 FOR I - 0 TO M - 1: PRINT "Y(";I;")= ";Y(I): NEXT I; 
PRINT 

1710 PRINT : INPUT "Änderung eines eingegebenen Wertes? 

(J/N)'MN$: IF IN$ < > "J" THEN 1740 
1720 PRINT : INPUT "Index des zu ändernden Wertes";! 

1730 PRINT ; INPUT "Neuer Wert";Y(I): GOTO 1710 
1740 REM 

1750 REM Start der Berechnung 
1760 REM 

1770 Y(0) = Y(0) / 2;Y(M) = Y(0):Y(N) = Y(N) / 2 

1780 GOSUB 4530 

1790 Al = 0:A2 - 0 

1800 FOR I = 0 TO P STEP 2 

1810 Al - Al + SS(I) _ 
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1820 NEXT I 


2490 REM 

1830 FOR I = 1 TO P STEP 2 


2500 FOR 11 = 0 TO 159 

1840 A2 = A2 + SS(I) 


2510 S - A(0) 

1850 NEXT I 


2520 FOR 12 - 1 TO G% 

1860 A(0) - (Al + A2) / M:A(N) = (Al - A2) / M 


2530 S = S + A(I2) * COS (12 # OM * 11 / 160) + B(I2) * SIN 

1870 FOR NI - 1 TO P STEP 2 


(12 * OM ^ 11 / 160) 

1880 Al = 0:A2 - 0;B1 = 0:B2 - 0 


2540 NEXT 12 

1890 L = 0:K = P 


2550 Yl(Il) = S 

1900 FOR I = 0 TO P STEP 2 


2560 NEXT 11 

1910 Al - Al + DS(I) * X(K);B2 - B2 + SD(I) # X(L) 


2570 J - 1 

1920 L = L + 2^i^Nl: IFL = M THEN L - L - M 


2580 PRINT 

1930 K=K+2*N1: IFK-M THEN K = K - M 


2590 GOSUB 3000 

1940 NEXT I 


2600 FOR I = 0 TO 159 

1950 PRINT 


2610 HPLOT I + 10,96 - 90 * Y1(I) / YO 

1960 L = N1:K - P + NI 


2620 NEXT I 

1970 FOR I = 1 TO P STEP 2 


2630 INPUT "-» CR ";IN$ 

1980 A2 - A2 + DS(I) * X(K):B1 - Bl + SD(I) * X(L) 


2640 FOR I = 0 TO M - I 

1990 L = L + 2^ieNl; IFL = M THEN L = L - M 


2650 IF ABS (Y(I)) > YO THEN YO = ABS (Y(I)) 

2000 K=K+2*N1; IFK=M THEN K = K - M 


2660 NEXT I 

2010 NEXT I 


2670 FOR I = 0 TO M - 1 

2020 A{N1) = (Al + A2) / N:A(N - NI) = (Al - A2) / N 


2680 C=0:D=0;E-0:F-0 

2030 B(N1) - (Bl + B2) / N;B(N - NI) = (Bl - 62) / N 


2690 C=10 + 2* Iitf79/M:D = 96 - 90 *Y(I) /YO:E=I0 

2040 NEXT NI 


+ 2* (I + l) #79/M:F- 96 - 90^ifY(I + l) / YO 

2050 FOR NI = 2 TO P STEP 2 


2700 HPLOT C,D TO E,F 

2060 Al = 0:A2 = 0:B1 = 0:B2 = 0 


2710 NEXT I 

2070 L = 0:K - P 


2720 GET ZZ$: PRINT CHRS (12) 

2080 FOR I = 0 TO P STEP 2 


2730 PRINT DS;"PR#3"; TEXT 

2090 Al - Al + SS(I) * X(K):B2 = B2 + DD(I) * X(L) 


2740 INPUT "Abspeichern des Plots als Bild-File? (J/N)";BF$ 

2100 L = L + 2^i^Nl: IFL = M THEN L - L - M 


2750 IF BFS < > "J" THEN 2790 

2110 K=K+2*N1; IFK=M THEN K - K - M 


2760 PRINT 

2120 NEXT I 


2770 INPUT "Auf Slot=";S: PRINT : INPUT "und Drive-";D: 

2130 L = N1:K = P + NI 


PRINT 

2140 FOR I = 1 TO P STEP 2 


2780 PRINT D$;"BSAVE FPICl,AS4000,L$IFFF,S";S;",D";D 

2150 A2 - A2 + SS(I) * X(K):B1 = Bl + DD(I) * X(L) 


2790 PRINT : INPUT "Hardcopy des Plots erstellen? 

2160 L-L+2*N1: IFL-M THEN L = L - M 


(J/N)";HK$ 

2170 K=K+2*N1: IFK=M THEN K - K - M 


2800 IF HK$ = "J" THEN GOSUB 4620 

2180 NEXT I 


2810 PRINT 

2190 A(N1) = (Al + A2) / N:A(N - NI) = (Al - A2) / N 


2820 PRINT : INPUT "Erstellen eines weiteren Plots mit 

2200 B(N1) = (Bl + B2) / N:B(N - NI) = (Bl - B2) / N 


anderer Genauigkeit? (J/N)";NP$ 

2210 NEXT NI 


2830 IF NP$ = "J" THEN PRINT CHRS (12); GOTO 2410 

2220 REM 


2840 PRINT 

2230 REM Ende der Berechnung 


2850 INPUT "Fourier-Koeffizienten abspeichern? (J/N)";IN$ 

2240 REM *** Beginn der Ausgabe 


2860 IF INS = "N" THEN PRINT : GOTO 2900 

2250 REM 


2870 IF INS < > "vJ" THEN 2850 

2260 INPUT "Ergebnis auf den (D)rucker oder (B)ildschirm? 


2880 GOSUB 3630 

"; IN$ 


2890 PRINT 

2270 IF IN$ - "D" THEN GOSUB 3300: GOTO 2351 


2900 INPUT "Eingegebene Funktionswerte speichern? 

2280 IF INS < > "B" THEN 2260 


(J/N}";IN$ 

2290 PRINT "Ergebnis:": PRINT "-PRINT 


2910 PRINT FRE (0) 

2300 PRINT : PRINT "a(0)=";A(0): PRINT 


2920 IF INS ^ "N" THEN 1080 

2310 FOR I - 1 TO N 


2930 IF INS < > "J" THEN 2900 

2320 PRINT "A(";I;")-";A(I), TAB(40)"B(I;")-";B(I) 


2940 FOR I = 0 TO M - 1:Y1(I) = Y(I): NEXT I 

2330 NEXT I: PRINT ; INPUT "Weiter -» CR «-";IN$ 


2950 NF - N; GOSUB 3790 

2340 PRINT : INPUT "Ausgabe auf den Drucker? (J/N)";DD$ 


2960 GOTO 1080 

2350 IF DD$ = "J" THEN GOSUB 3300: PRINT 


2970 REM 

2351 PRINT "Darstellung als Fourier-Sinus-Reihe:": PRINT 


2980 REM *** Bildrahmen generieren *** 

" 


2990 REM 

2352 FOR I = I TO N: LET AA(I) - SQR (A(I) 2 + ß(I) f 2) 


3000 XO = 2 # 3.141592654:XU = 0:YO = - l.E25:YU - 1,E25 

2353 IF B(I) = 0 AND A(I) = 0 THEN PHI(I) - 0: GOTO 2365 


3010 FOR I - 0 TO 159 

2354 IF B(I) - 0 AND A{I) > 0 THEN PHI(I) = 0: GOTO 2365 


3020 IF YI(I) > YO THEN YO - YI(I) 

2355 IF B(I) = 0 AND A(I) < 0 THEN PHI(I) = 180: GOTO 2365 


3030 IF Y1(I) < YU THEN YU = YI(I) 

2356 IF A(I} = 0 AND B(I) > 0 THEN PHI(I) = 90; GOTO 2365 


3040 NEXT I 

2357 IF A(I) - 0 AND B(I) < 0 THEN PHI(I) = - 90: GOTO 2365 


3050 FOR I - 0 TO 20: PRINT ; NEXT I 

2360 LET PHI(I) = ATN (A(I) / B(I)) 


3060 PRINT : PRINT TAB(10)"Ymax= ";YO 

2361 LET PHI(I) = 180 * PHI(I) / 3.141592654 


3070 PRINT : PRINT TAB{10)"Ymin= ";YU 

2365 NEXT I 


3080 PRINT 

2366 PRINT "C(0)=";A(0): PRINT 


3090 IF ABS (YU) > YO THEN YO = ABS (YU) 

2367 FOR I = 1 TO N: PRINT "C(";I;")- ";AA(I);: HTAB 20: 


3100 PRINT TAB(10)"XU= ";XU 

PRINT "Phi(";I;")- ";PHI(I): NEXT I 


3110 PRINT : PRINT TAB(10)"XO= ";XO 

2368 PRINT : INPUT "Weiter —»CR«—"; INS 


3120 PRINT : PRINT "Nährung der Funktion nach Fourier 

2369 REM 


einschließlich Oberwelle Nr.: ";G%: PRINT 

2370 REM *** Vorbereitung des Plots 


3130 PRINT ; PRINT "Weiter -» CR «-";: GET XXS; PRINT 

2380 REM 


FRE (0) 

2390 PRINT CTHRS (1) 


3140 PRINT D$;"PR+0": HGR2 ; HCOLOR= 7 

2400 OM = 2 * 3.I4I592654; PRINT CHR$ (12) 


3150 GOSUB 5000: REM Bildrahmen generieren 

2410 PRINT TAB(20)"Vorbereitung des Plots"; PRINT 


3160 FOR I = 0 TO 100 

' TAB(20)"-" 


3170 HPLOT 10,46 + I 

2420 PRINT : PRINT "Plotten der Funktion mit wählbarer 


3180 NEXT I 

Genauigkeit möglich": PRINT 


3190 FOR I - 0 TO 170 

2430 PRINT : INPUT "Annäherung einschließlich der Oberwelle 


3200 HPLOT 1,96 

Nr,:";G%: IF G% > N THEN G% = N 


3210 NEXT I 

2440 IF G% > N THEN G% = N 


3220 FOR I - 0 TO 80 STEP 10 

2450 IF G% < 0 THEN PRINT : PRINT "Fehlerhafte Eingabe ": 


3230 HPLOT 9,96-1 

GOTO 2430 


3240 NEXT I 

2460 PRINT : PRINT "Moment bitte": PRINT 


3250 FOR I = 11 TO 91 STEP 10 

2470 REM 


3260 HPLOT 1,97 

2480 REM Approximation mit den oben berechneten 


3270 NEXT I 

Fourier-Koeffizienten 


3280 RETURN 
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3290 REM 

3300 REM ********^^ Druckerausgabe ^**^**** 

3301 REM Die hier verwendeten Druckersteuerzeichen gelten 

für den STAR 

3302 REM GEMINI-Drucker und sind an den verwendeten Drucker 

anzupassen, 

3303 REM CHR$(9};"G2" gibt eine Hardcopy der HGR2-Seite auf 
den Drucker, 

3304 REM CHR$(87);CHR$(0) schaltet auf Normalbreite zurück, 

3305 REM CHR$(87);CHR$(1) schaltet auf Breitschrift um. 

3310 REM 

3320 PRINT D$j”PR#l’': PRINT CHR$ (27); CHR$ (87); CHR$ (1) 
3330 PRINT "FOURIER-ANALYSE" 

3335 PRINT "-" 

3370 PRINT CHR$ (27); CHR$ (87); CHR$ (0) 

3380 PRINT "Algorithmus: Runge": PRINT 
3390 PRINT CHR$ (15) 

3400 PRINT "Anzahl der eingegebenen Stützstellen: ";M 
3410 PRINT ; PRINT "Grad des trigonometrischen Polynoms: ";N 
3415 PRINT "Koeffizienten:" 

3420 PRINT "a(0)= ";A(0) 

3430 PRINT : FOR I - 1 TO N 

3440 PRINT TAB(I0)"a(";I;")- ";A(I); CHR$ (27); CHR$ (98); 

CHR$ (40);"b(";I;")= ";B(I) 

3450 PRINT 
3460 NEXT I 

3470 PRINT : PRINT "Fourier-Analyse": PRINT : PRINT "(c) 
Peter Walber, Mai '84" 

3480 PRINT CHR$ (27); CHR$ (50) 

3490 PRINT D$;"PRTt3" 

3491 REM CHR$(98);CHR$(40) setzt den nächsten Tabulator auf 
die 40 Spalte 

3492 REM CHR$(50) Zeilenvorschub auf 1/6 Inch 
3500 RETURN 

3510 REM 

3520 REM Synthese ******** 

3530 REM 

3540 PRINT : PRINT "FOURIER.SYN wird geladen" 

3550 PRINT D$;"RUN FOURIER.SYN" 

3560 REM 

3570 REM Spektrum ******* 

3580 REM 

3590 PRINT : PRINT "FOURIER.SPEC wird geladen" 

3600 PRINT D$;"RUN FOURIER.SPEC" 

3610 END 
3620 REM 

3630 REM ******************************************* 

3640 REM 

3650 PRINT CHR$ (12) 

3660 PRINT "Abspeichern der Fourier-Koeffizienten" 

3670 PRINT : INPUT "Filename:";DN$ 

3680 PRINT : INPUT "Slot:";S 
3690 PRINT : INPUT "Drive:";D 

3700 PRINT D$;"0PEN";DN$ + "KOEFF";".S";S;",D";D 
3710 PRINT D$;"DELETE";DN$ + "KOEFF" 

3720 PRINT D$;"OPEN";DN$ + "KOEFF" 

3730 PRINT D$;"WRITE";DN$ + "KOEFF" 

3740 PRINT N: PRINT A(0) 

3750 FOR I = 1 TO N + 3: PRINT A(I); PRINT B(I): NEXT I 
3760 PRINT D$;"CLOSE" 

3770 RETURN 
3780 REM 

3790 REM ******************************************* 

3800 REM 

3810 PRINT CHR$ (12) 

3820 PRINT "Abspeichern der Funktionswerte" 

3830 PRINT : INPUT "FilenameDN$ 

3840 PRINT : INPUT "Slot:";S 
3850 PRINT : INPUT "Drive:";D 

3860 PRINT D$;"OPEN";DN$ + "WERTE";",S";S;",D";D 
3870 PRINT D$;"DELETE";DN$ + "WERTE" 

3880 PRINT D$;"0PEN";DN$ + "WERTE" 

3890 PRINT D$;"WRITE";DN$ + "WERTE": PRINT NF: FOR I - 0 TO 
2 * NF + 2 

3900 PRINT Y1(I): NEXT I 
3910 PRINT D$;"CL0SE" 

3920 RETURN 
3930 REM 

3940 REM ******************************************* 

3950 REM 

3960 GOSUB 4230 

3970 PRINT CHR$ (12) 

3980 PRINT "Einlesen der Funktionswerte" 

3990 PRINT : INPUT "Filename: ";DN$ 

4000 PRINT : INPUT "Slot:";S: PRINT : INPUT "Drive:";D 
4010 PRINT D$;"OPEN";DN$;",S";S;",D";D 
4020 PRINT D$;"READ ";DN$ 

4030 INPUT YZ$: PRINT :N - VAL (YZ$):P -N/2;M=2¥N 


4040 PRINT 

4050 FOR I = 0 TO M - 1: INPUT YZ$: PRINT :Y(I) = VAL 
(YZ$): NEXT I 
4060 PRINT D$;"CL0SE" 

4070 RETURN 
4080 REM 

4090 REM ^^*^^*^^5^iff****^*****#*iK***¥*5^*****#*¥*#*****^^^(t 
4100 REM 

4110 D$ = CHR$ (4): GOSUB 4230 
4120 PRINT CHR$ (12) 

4130 PRINT "Einlesen der Fourier-Koeffizienten" 

4140 PRINT : INPUT "FilenameDN$ 

4150 PRINT ; INPUT "Slot:";S 
4160 PRINT : INPUT "Drive";D 
4170 PRINT D$;"OPEN";DN$;",S";S;",D";D 
4180 PRINT D$;"READ";DN$ 

4190 INPUT N$: PRINT :N = VAL (N$): INPUT AB$: PRINT :A(0) 

- VAL (Aß$) 

4200 FOR I = 1 TO N: INPUT YZ$: PRINT ;A(I) = VAL (YZ$); 

INPUT YZ$: PRINT :B(I) - VAL (YZ$); NEXT I 
4210 PRINT D$;"CL0SE" 

4220 RETURN 
4230 PRIN 
4400 STOP 

4410 DEF FN F(I) = 10 * EXP ( - I j“ 2) 

4420 FOR I = 0 TO 10: PRINT : NEXT I 
4430 PRINT "Da die Fourier-Analyse nur periodische 
Funktionen auswertet, muß dem": PRINT : PRINT 
"Programm raitgeteilt werden, wo die Periodendauer T 
liegen soll." 

4440 INPUT "Obere Grenze-";TMAX 
4450 LET DT - TMAX / M:DT = INT (DT) 

4460 FOR I - 0 TO TMAX - DT 
4470 Y(I) - FN F(I) 

4480 NEXT I 
4490 RETURN 
4500 REM 

4510 REM *** Abbildung auf den 1. Quadranten 
4520 REM 

4530 FOR I = 0 TO N 

4540 ZZ(I) = Y(I) + Y(M - I):YY(I) = Y(I) - Y(M - I): NEXT I 

4550 ZZ(P) - ZZ(P) / 2:YY(P) = YY(P) / 2 

4560 Y(0) - 2 Y(0):Y(M) - Y(0):Y(N) - 2 * Y(N) 

4570 FOR I = 0 TO N / 2 

4580 SS(I) - ZZ(I) + ZZ(N - I):DS(I) = ZZ{I) - ZZ(N - I) 

4590 SD(I) - YY(I) + YY(N - I):DD(I) - YY(I) - YY(N - I): 

NEXT I 
4600 RETURN 
4610 REM 

4620 REM Hardcopy 
4630 REM 

4640 PRINT : INPUT "Plot vergrößert zur Ausgabe? (J/N)";VG$ 
4650 IF VG$ - "J" THEN 4670 

4660 PRINT D$;"PR#1": PRINT CHR$ (9);"G2": PRINT D$;"PRit3": 
RETURN 

4670 PRINT D$;"PRtl"; PRINT CHR$ (9);"G2RD"; PRINT 
D$;"PR*3": RETURN 
5000 REM *** Bildrahmen 
5010 BASADR = 16407 
5020 FOR J - 1 TO 8 
5030 FOR 17 - 0 TO 7 
5040 READ AL% 

5050 POKE BASADR + 1024 * I7,AL% 

5060 NEXT 17 

5070 BASADR = BASADR + 1 

5080 NEXT J 

5081 BASADR - 16836 

5082 FOR 17 - 0 TO 7 

5083 READ AL% 

5084 POKE BASADR + 1024 I7,AL% 

5085 NEXT 17 
5090 RESTORE 

5100 BASADR = 16384 
5110 FOR 17 = 0 TO 7 
5120 READ AL% 

5130 POKE BASADR + 1024 * I7,AL% 

5140 NEXT 17 
5150 RESTORE 

5160 HPLOT 160.9 TO 224,9 
5170 RETURN 

5180 DATA 0,62,2,2,30,2,2,2: REM F 

5190 DATA 0,34,34,34,34,34,34,28: REM U 

5200 DATA 0,34,34,38,42,50,34,34: REM N 

5210 DATA 0,34,18,10,6,10,18,34: REM K 
5220 DATA 0,62,8,8,8,8,8,8: REM T 

5230 DATA 0,28,8,8,8,8,8,28: REM I 

5240 DATA 0,28,34,34,34,34,34,28: REM 0 ^ 

5250 DATA 0,34,34,38,42,50,34,34: REM N b 

5260 DATA 0,0,0,34,20,8,20,34: REM x ^ 


42 


Peeker 6/85 












^ AppUsoFr 


Applesoft- 

Erweiterungen 


von Markus Enzinger 


Eine Sammlung von Ampersand-Routinen 


Mit Hilfe des Assembler-Programms 
AS.ERWEITERUNG werden insgesamt 18 
neue Befehle in Applesoft implementiert, 
die von jedem Basic-Programm aus aufge¬ 
rufen werden können. 

Nach dem Eingeben des Assembler-Pro¬ 
gramms speichern Sie dieses bitte unter 
dem Namen AS.ERWEITERUNG mit 
„ BSAVE AS.ERWEITERUNG, A$9378, 
L$288“ auf Diskette ab. Das Programm 
kann dann von Applesoft aus mit einem 
BRUN jederzeit wieder eingeladen werden 
und liegt nach dem Einladen unter den 
DOS-Puffern, d.h. von Adresse $95FF ab¬ 
wärts. Es schützt sich nach dem Starten 
(durch BRUN oder CALL 38399) selbst 
vor Überschreiben durch Stringvariablen 
und initialisiert dann den &-Vektor, der von 
Applesoft aus aufgerufen wird, sobald der 
Interpreter auf das „&“-Zeichen trifft. Die¬ 
ser Vektor steht in den Speicherzellen 
$03F5 bis $03F7. In diesen Bereich wird 
ein Sprungbefehl zu dem Programm ge¬ 
schrieben, welches die Befehle nach dem 
verarbeitet. 

Die Erläuterung der einzelnen 
Befehle 

& GOTO stellt dem Benutzer die Möglich¬ 
keit zur Verfügung, ein berechnetes GO¬ 
TO durchzuführen. Als Zeilennummer darf 
hierfür jeder beliebige numerische Aus¬ 
druck eingesetzt werden. Beispiele 
hierzu: 

& GOTO 10^ A + 25 
&GOTO A(X)*10 + 50. 

& GOSUB bildet einen berechneten 
Sprung in ein Unterprogramm. Der Gel¬ 
tungsbereich für den numerischen Aus¬ 


druck ist identisch mit dem des Befehls 
„&GOTO“. 

& RESTORE hat im Prinzip die gleiche 
Wirkung wie der Applesoft-Befehl „RE¬ 
STORE“ mit dem Unterschied, daß der 
DATA-Zelger, der auf die momentan zu 
lesende Information gerichtet Ist, nicht auf 
das erste vorhandene DATA-Statement 
zurückgesetzt wird, sondern auf jede be¬ 
liebige DATA-Zeile gerichtet werden kann. 
Der numerische Ausdruck für die Zeilen¬ 
nummer muß den gleichen Bedingungen 
entsprechen wie der von „& GOTO“. 

& HGR bewirkt, daß die erste Seite für 
hoch aufgelöste Grafik sichtbar wird, ohne 
diese dabei zu löschen. Genauso wie bei 
dem „HGR“-Befehl in Applesoft werden 
auch hier die untersten vier Zeilen für 
Textausgabe reserviert. Dieser Befehl er¬ 
spart das ansonsten notwendige „Herum- 
poken“ in den Adressen für die Bildschirm¬ 
ausgabe. „& HGR“ entspricht den folgen¬ 
den Basic-Zeilen: 

POKE -16304,0 
POKE -16301,0 
POKE -16300,0 
POKE -16297,0 
POKE 230,32. 

Außerdem wird in der Zero-Page ein Flag 
gesetzt, welches bewirkt, daß alle nachfol¬ 
genden Grafikkommandos wie HPLOT 
usw. auf der ersten Grafikseite ausgeführt 
werden. 

& HGR2 bewirkt dasselbe wie „& HGR“, 
bezogen auf die zweite Seite für hoch 
aufgelöste Grafik. Allerdings wird hier, wie 
auch beim Applesoft-Befehl .,HGR2“, kein 
Platz für Textausgaben reserviert. 


& GR schaltet die Bildschirmausgabe auf 
die erste Seite für niedrig aufgelöste Grafik 
um, ähnlich wie der Befehl „GR“ In Ap¬ 
plesoft, jedoch ebenfalls ohne diese zu 
löschen. Die unteren vier Zeilen sind für 
Textausgaben reserviert. 

& INVERSE bewirkt ein Invertieren des 
Textbiidschirmes. Invertieren bedeutet, 
daß die Hinter- und Vordergrundfarbe je¬ 
des einzelnen Zeichens gegeneinander 
vertauscht werden. Ein zweimaliges An¬ 
wenden dieses Befehls stellt wieder den 
Ursprungszustand des Textbildschirmes 
her. (Dieser Befehl sollte bei der Benut¬ 
zung eines Peripheriegeräts nicht ange¬ 
sprochen werden, da der gesamte Bereich 
von $0400 bis $07FF invertiert wird und 
somit auch die von den Slots benutzten 
„Screenholes“ ihren Wert ändern. Dies 
führt z.B. zu einer Neukalibrierung des 
Schreib/Lesekopfs bei einem angeschlos¬ 
senen Diskettenlaufwerk. Anm. der Red.) 

& INVERSE-H invertiert die zuletzt ange¬ 
sprochene Seite für hoch aufgelöste Gra¬ 
fik. Man sollte darauf achten, daß vor der 
Verwendung dieses Befehls schon eine 
der beiden Grafikseiten angesprochen 
wurde (durch „HGR“, „HGR2“, „& HGR“ 
oder „& HGR2“). Der Grund dafür liegt in 
der Tatsache, daß in der Zero-Page ein 
Flag existiert, welches dem Interpreter 
sagt, auf welcher Grafikseite momentan 
gearbeitet wird. Ist noch keine Grafikseite 
angesprochen worden, so enthält dieses 
Flag einen Zufallswert und es könnte pas¬ 
sieren, daß irgendwo Im RAM Speicher¬ 
zellen invertiert und dadurch Daten zer¬ 
stört werden oder gar das System ab¬ 
stürzt. 
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& FLASH bewirkt ein Aufblitzen des Text- 
bzw. Lores-Grafik-Bildschirmes. Dieser 
Befehl ist besonders bei Spielen gut an¬ 
wendbar, wenn sog. „Crashs“ dargestellt 
werden sollen. Programmtechnisch wurde 
dieser Befehl realisiert, indem einfach die 
Invertierungsroutine zweimal hintereinan¬ 
der aufgerufen wird. 

& SOUND h,d gibt über den internen 
Lautsprecher des Apple II den Ton h mit 
der Dauer d aus. Der Parameter h stellt 
also die Tonhöhe dar, d die Tondauer. H = 
1 ergibt den tiefstmöglichen, h = 255 den 
höchstmöglichen Ton. D = 1 bewirkt einen 
sehr kurzen, d = 255 dagegen einen lan¬ 
gen Ton. Für h und d sind sowohl Zahlen 
als auch Variablen einsetzbar. Beispiele 
[ hierfür: 

I SOUND 25,200 

. SOUND NH,ND -F 100. 

' & SCROLL-R schiebt den gesamten Bild¬ 

schirminhalt der Textseite um eine Spalte 
nach rechts. Mit Hilfe des SCROLL-Be- 
i fehls ließe sich z.B. ein Programm zur 

I Erzeugung von Laufschriften o.ä. recht 

I einfach erstellen. 

& SCROLL-L schiebt den Bildschirminhalt 
um eine Spalte nach links. 

& SCROLL-U schiebt den Bildschirmin¬ 
halt um eine Zeile nach oben. 

I & SCROLL-D schiebt den Blldschirmin- 

I halt um eine Zeile nach unten. 

I & SCROLL-GR schiebt den Bildschirmin¬ 

halt der niedrig aufgelösten Grafik um eine 
Spalte nach rechts. 

& SCROLL-GL schiebt den Bildschirmin¬ 
halt der niedrig aufgelösten Grafik um eine 
Spalte nach links. 

& SCROLL-GU schiebt den Bildschirmin¬ 
halt der niedrig aufgelösten Grafik um eine 
Zeile nach oben. 

I & SCROLL-GD schiebt den Bildschirmin¬ 

halt der niedrig aufgelösten Grafik um eine 
Zeile nach unten. 

I Die Grafik-SCROLL-Befehie eignen sich 

^ in erster Linie zur Erstellung von Spielpro¬ 

grammen In Basic, wie z.B. Scramble oder 
Autorennen, die eine schnelle Bewegung 
der Hintergrundlandschaft verlangen. Die 
* Text-SCROLL-Befehle sowie der IN- 

I VERSE- und FLASH-Befehl arbeiten nur 

I bei der 40 Z/Z-Ausgabe. 


AS.ERWEITERUNG 





1 

2 








3 

* 18 

neue Applesoft- 

-Befehle *■ 




4 

* 



* 




5 

* 


von 





6 


MARKUS ENZINGER * 




8 

9 

* 



* 




10 

* 







11 


ORG 

$9378 

; Programm-Startadresse 




12 








13 














14 








15 

Zuordnung der Tokens, 

d.h. der Zahlen, die der Inter- 




16 

* preter 

für 

die jeweiligen Befehle verwendet 




17 

* 







18 

FLASH0 

EQU 

159 

; Token von FLASH 




19 

INVERSE0 

EQU 

158 

; Token von INVERSE 




20 

GOSUB0 

EQU 

176 

; Token von GOSUB 




21 

GOTO0 

EQU 

171 

: Token von GOTO 




22 

RESTORE0 EQU 

174 

1 Token von RESTORE 




23 

GR0 

EQU 

136 

: Token von GR 




24 

HGR0 

EQU 

145 

: Token von HGR 




25 

HGR20 

EQU 

144 

; Token von HGR2 




26 

* 







27 

* Zero-Page-Adressen - 





28 

* 







29 

WNDWDTH 

EQU 

$21 





30 

WNDTOP 

EQU 

$22 





31 

WNDBTM 

EQU 

$23 





32 

BASL 

EQU 

$28 





33 

BAS2L 

EQU 

$2A 





34 

LINNUM 

EQU 

$50 





35 

FRETOP 

EQU 

$6F 





36 

MEMSIZE 

EQU 

$73 





37 

CURLIN 

EQU 

$75 





38 

DATPNT 

EQU 

$7D 





39 

LOWTR 

EQU 

$9B 





40 

TXTPTR 

EQU 

$B8 





41 

HPAG 

EQU 

$E6 





42 








43 

^ Verschiedene System-Adressen - 




44 








45 

CHRGET 

EQU 

$00B1 

; Zeichen holen 




46 

SPKR 

EQU 

$C030 

. Adresse des Lautsprechers 




47 

FNDLIN 

EQU 

$D61A 

' Zeile suchen 




48 

NEWSTT 

EQU 

$D7D2 

; neuen Befehl ausführen 




49 

FRMNUM 

EQU 

$DD67 

; Ausdruck berechnen 




50 

ERROR 

EQU 

$DEC9 

; Ausgabe 'Syntax Error' 




51 

GETADR 

EQU 

$E752 

i FACl —> Integer {in $50,$51) 




52 

ILLQUA 

EQU 

$E199 

L Ausgabe 'Illegal Quant, Error' 




53 

GETNUM 

EQU 

$E746 

j Hole 2 Parameter aus Basic 




54 

VTABZ 

EQU 

$FC24 





55 

SCROLL0 

EQU 

$FC70 





56 

WAIT 

EQU 

$FCA8 

; Warte-Schleife 




57 

* 







58 

* Initialisieren des &-Vektors 




59 

* 




9378: 

A9 93 


60 


LDA 

#>START 

; High-Byte 

937A: 

8D F7 03 

61 


STA 

$03F7 


937D: 

85 70 


62 


STA 

FRETOP+1 


937F: 

85 74 


63 


STA 

MEMSIZE+1 


9381; 

A9 90 


64 


LDA 

+<START 

; Low-Byte 

9383: 

85 6F 


65 


STA 

FRETOP 


9385: 

85 73 


66 


STA 

MEMSIZE 


9387: 

8D F6 

03 

67 


STA 

$03F6 


938A: 

A9 4C 


68 


LDA 

#$4C 

; Sprungbefehl 

938C: 

8D F5 

03 

69 


STA 

$03F5 


938F: 

60 


70 


RTS 






71 








72 

* War der Befehl ein 'GR 

' ? 




73 





9390: 

C9 88 


74 

START 

CMP 

#GR0 

; Mit GR-Token vergleichen 

9392 : 

D0 03 


75 


BNE 

NEXTCOM 


9394: 

4C BD 

95 

76 


JMP 

GR 

; GR-Routine aufrufen 

9397: 

C9 91 


77 

NEXTCOM 

CMP 

+HGR0 


9399: 

D0 03 


78 


BNE 

NEXTCOMl 


939B: 

4C CF 

95 

79 


JMP 

HGR 


939E: 

C9 90 


80 

NEXTCOMl 

CMP 

#HGR20 


93A0: 

D0 03 


81 


BNE 

NEXTC0M2 


93A2: 

4C E2 

95 

82 


JMP 

HGR2 


93A5: 

C9 AB 


83 

NEXTC0M2 

CMP 

tGOTO0 


93A7: 

F0 3E 


84 


BEQ 

GOTO 


93A9: 

C9 B0 


85 


CMP 

#GOSUB0 


93 AB: 

F0 46 


86 


BEQ 

GOSUß 
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^ AppUsofT 


93AD 

C9 AE 


87 


CMP 

+RESTORE0 


93AF 

F0 5C 


88 


BEQ 

RESTORE 


93B1 

C9 9E 


89 


CMP 

*INVERSE0 


93B3 

F0 77 


90 


BEQ 

INVERSE 


93B5 

C9 9F 


91 


CMP 

*FLASH0 


93B7 

D0 03 


92 


BNE 

NEXTC0M3 


93B9 

4C 8B 

94 

93 


JMP 

FLASH 





94 

* 







95 

*- 

War Befehl ein 'Scroll'? - 




96 

* 




93BC 

A0 00 


97 

NEXTC0M3 

LDY 

#$00 


93BE 

D9 F5 

95 

98 

NEXTCHAR 

CMP 

SCROLLl.Y 


93C1 

D0 0E 


99 


BNE 

SOUND? ; 

Befehl <> 'Scroll' 

93C3 

C8 


100 


INY 






101 

* 







102 

*-Alle 6 

Buchstaben verglichen? - 




103 

* 




93C4 

C0 06 


104 


CPY 

#$06 


93C6 

D0 03 


105 


BNE 

NEXT 


93C8 

4C 94 

94 

106 


JMP 

SCROLL ; 

Routine aufrufen 

93CB 

20 Bl 

00 

107 

NEXT 

JSR 

CHRGET 


93CE 

4C BE 

93 

108 


JMP 

NEXTCHAR 


93D1 

D9 FB 

95 

109 

SOUND? 

CMP 

SOUNDl,Y 


93D4 

F0 03 


110 


BEQ 

NEXTC 


93D6 

4C C9 

DE 

111 


JMP 

ERROR ; 

'Syntax Error' 

93D9 

C8 


112 

NEXTC 

INY 



93DA 

C0 05 


113 


CPY 

#$05 ; 

verglichen? 

93DC 

D0 03 


114 


BNE 

NEXTCl 


93DE 

: 4C 97 

95 

115 


JMP 

SOUND 


93E1 

: 20 Bl 

00 

116 

NEXTCl 

JSR 

CHRGET 


93 E4 

: 4C Dl 

93 

117 


JMP 

SOUND? 





118 

* 







119 

#- 

— 

— G0T0(X)-Routine - 




120 

* 




93E7 

: 20 Bl 00 

121 

GOTO 

JSR 

CHRGET 


93 EA 

: 20 67 

DD 

122 


JSR 

FRMNUM 

Ausdruck berechnen 

93 ED 

: 20 52 

E7 

123 


JSR 

GETADR 

und in Integer umwandeln 

93F0 

; 4C 41 

D9 

124 


JMP 

$D941 

GOTO-Routine ansprechen 




125 

* 







126 

^ - 


- G0SUB(X)-Routine - 




127 

* 




93F3 

: A9 03 


128 

GOSUB 

LDA 

#$03 


93F5 

: 20 D6 

D3 

129 


JSR 

$D3D6 ; 

; Stack prüfen 

93F8 

: A5 B9 


130 


LDA 

TXTPTR+1 ; 

; CHRGET-Zeiger retten 

93 FA 

: 48 


131 


PHA 



93FB 

; A5 B8 


132 


LDA 

TXTPTR 


93FD 

: 48 


133 


PHA 



93FE 

: A5 76 


134 


LDA 

CURLIN+1 ; 

: Zeilennr. retten 

9400 

: 48 


135 


PHA 



9401 

: A5 75 


136 


LDA 

CURLIN 


9403 

: 48 


137 


PHA 



9404 

: A9 B0 


138 


LDA 

#$B0 


9406 

; 48 


139 


PHA 



9407 

: 20 E7 

93 

140 


JSR 

GOTO 


940A 

: 4C D2 

D7 

141 


JMP 

NEWSTT 

; Befehl ausführen 




142 

* 







143 

^ - 


- REST0RE(X} Routine - 




144 

* 




940D 

: 20 Bl 

00 

145 

RESTORE 

JSR 

CHRGET 


9410 

: 20 67 

DD 

146 


JSR 

FRMNUM 


9413 

: 20 52 

E7 

147 


JSR 

GETADR 


9416 

; 20 lA 

D6 

148 


JSR 

FNDLIN 

Zeile suchen 

9419 

: A5 9C 


149 


LDA 

LOWTR+1 

Adr. der Zeile 

941B 

: 85 7E 


150 


STA 

DATPNT+1 

in Data-Zeiger ablegen 

94 ID 

: A5 9B 


151 


LDA 

LOWTR 


941F 

: 38 


152 


SEC 



9420 

: E9 01 


153 


SBC 

#$01 


9422 

; 85 7D 


154 


STA 

DATPNT 


9424 

; C9 FF 


155 


CMP 

#$FF 


9426 

: F0 01 


156 


BEQ 

OVFLW 


9428 

: 60 


157 


RTS 



9429 

: C6 7E 


158 

OVFLW 

DEC 

DATPNT+1 


942B 

: 60 


159 


RTS 




160 * 


161 * - Invertierungs-Routine 

162 ¥ 


942 C; 

20 Bl 

00 

163 

INVERSE 

JSR 

CHRGET 


942F: 

C9 C9 


164 


CMP 

#$C9 

; Inverse-H? 

9431: 

D0 29 


165 


BNE 

INVTXT 


9433: 

20 Bl 

00 

166 


JSR 

CHRGET 


9436: 

20 Bl 

00 

167 


JSR 

CHRGET 


9439: 

A9 00 


168 


LDA 

#$00 


943B: 

85 01 


169 


STA 

$01 


943D; 

A2 00 


170 

NXTLINE 

LDX 

#$00 


943F: 

A0 00 


171 


LDY 

#$00 


9441: 

A5 01 


172 


LDA 

$01 

; Berechnung der 

9443: 

20 11 

F4 

173 


JSR 

$F411 

; Adresse und Maske des 

9446: 

A0 00 


174 


LDY 

#$00 

; Punktes 


ProDOS-Editor 1.0 

Applesoft-Editor 

unter ProDOS-Betriebssystem 

von U. Stiehl 

1984, Diskette und Manual, DM 98,- 
ISBN 3-7785-1024-X 

Mit diesem neuen Editor - übrigens 
der bislang einzige deutsche Pro¬ 
DOS-Editor - wird dem Appiesoft- 
Programmierer ein Werkzeug zur ef¬ 
fektiven Programmierung unter dem 
Betriebssystem ProDOS gegeben, 
denn die früheren Editoren sind alle¬ 
samt unter ProDOS nicht mehr lauf- 
fähig. 

Unter anderem sind folgende Fea¬ 
tures implementiert worden: 

- Zeilenorientierter Editor mit jedem er¬ 
denklichen Redigierkomfort (Insert, 
Delete, Tab, Restore, freie Cursorbe¬ 
wegung in allen vier Richtungen, Einga¬ 
be von Ctri-Buchstaben in Applesoft- 
Zeilen usw.) 

- Renumber (Zeilen-Umnumerierung) 

- Xreference (sortierte Variablenliste) 

- Suchen von Tokens, Strings und Varia¬ 
blen 

- dezimale und hexadezimale Umrech¬ 
nungen 

- Ausführung von Monitorbefehlen aus 
dem Editor heraus 

- Listen des Applesoft-Programms in 
speicherinterner Form als Hex-Dump 

- Suchen von Hex-Folgen, Adressen 
oder Speicherstellen im gesamten 
RAM-Bereich einschließlich der 
Language-Card 

- frei definierbare Tastatur-Macrobefehle 

Der Applesoft-Editor liegt in einem 
von ProDOS geschützten Bereich 
und läßt sich per Tastendruck vor¬ 
übergehend abschalten und ebenso 
einfach wieder aktivieren. 

Gerätevoraussetzung: Apple It-h, Ile 
oder l!c 

Hüthig Software Service, 

Postfach 10 28 69, 

D-6900 Heidelberg 
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9448; Bl 26 

175 

NXTBYTE 

LDA 

($26),Y 


944A: 49 7F 

176 


EOR 

+$7F 

; invertieren 

944C: 91 26 

177 


STA 

($26),Y 


944E: C8 

178 


INY 



944F; C0 28 

179 


CPY 

4|:$28 

; 1 Zeile fertig? 

9451: D0 F5 

180 


BNE 

NXTBYTE 


9453: E6 01 

181 


INC 

$01 

; nächste Zeile 

9455: A5 01 

182 


LDA 

$01 


9457: C9 C0 

183 


CMP 

*$C0 

; alle Zeilen fertig? 

9459; D0 E2 

184 


BNE 

NXTLINE 


945B: 60 

185 


RTS 




186 

* 





187 

^- 

Textseite invertieren - 


188 





945C: A2 04 

189 

INVTXT 

LDX 

#$04 

; Zeiger auf Text- 

945E; 86 02 

190 


STX 

$02 

; Seite initialisieren 

9460: A9 00 

191 


LDA 

#$00 


9462: 85 01 

192 


STA 

$01 


9464: A0 00 

193 

L00P9 

LDY 

+$00 


9466: Bl 01 

194 

LOOPS 

LDA 

($1),Y 


9468; C9 C0 

195 


CMP 

#$C0 


946A: 90 0D 

196 


BCC 

LOOP10 


946C: 49 C0 

197 

L00P13 

EOR 

#$C0 


946E: 91 01 

198 

LOOPll 

STA 

($1),Y 


9470: 88 

199 


DEY 



9471; D0 F3 

200 


BNE 

LOOPS 


9473: E6 02 

201 


INC 

$02 


9475: CA 

202 


DEX 



9476: D0 EC 

203 


BNE 

L00P9 


9478: 60 

204 


RTS 



9479; C9 A0 

205 

LOOP10 

CMP 

#$A0 


947B: 90 05 

206 


BCC 

LOOP20 


947D: 49 80 

207 


EOR 

#$80 


947F: 4C 6E 94 

208 


JMP 

LOOPll 


9482: C9 20 

209 

LOOP20 

CMP 

#$20 


9484: 90 E6 

210 


BCC 

L00P13 


9486: 49 80 

211 


EOR 

+$80 


9488: 4C 6E 94 

212 


JMP 

LOOPll 



213 

* 





214 







r_Ld.on AUUUiriG --—-- 


215 

* 




948B: 20 Bl 00 

216 

FLASH 

JSR 

CHRGET 


948E: 20 5C 94 

217 


JSR 

INVTXT 

; FLASHen durch 

9491: 4C 5C 94 

218 


JMP 

INVTXT 

; 2 X invertieren 


219 






220 










■aoux in© 


221 

* 




9494: A9 A0 

222 

SCROLL 

LDA 

#$A0 


9496: 85 FF 

223 


STA 

$FF 


9498: 20 Bl 00 

224 


JSR 

CHRGET 


949B: 20 Bl 00 

225 


JSR 

CHRGET 


949E: C9 88 

226 


CMP 

#136 

; Scroll-GR? 

94A0: D0 03 

227 


BNE 

NIXGR 


94A2: 4C 72 95 

228 


JMP 

SCRGR 


94A5: C9 47 

229 

NIXGR 

CMP 

#'G 

; Grafik-Scroll? 

94A7: D0 03 

230 


BNE 

NOGRAFIK 


94A9: 4C 53 95 

231 


JMP 

SCROLLG 


94AC: C9 52 

232 

NOGRAFIK 

CMP 

#'R 


94AE: F0 15 

233 


BEQ 

RECHTS 


94B0: C9 4C 

234 


CMP 

#'L 


94B2: F0 37 

235 


BEQ 

LINKS 


94B4: C9 55 

236 


CMP 

#'U 


94B6: D0 03 

237 


BNE 

L00P31 


94BB: 4C 4D 95 

238 


JMP 

UP 


94BB: C9 44 

239 

LOOP31 

CMP 

#'D 


94BD: D0 03 

240 


BNE 

FEHLER 


94BF: 4C 17 95 

241 


JMP 

DOWN 


94C2: 4C C9 DE 

242 

FEHLER 

JMP 

ERROR 



243 






244 

^ -Rechts-; 

Scrollen - 



245 

* Umgeschriebene Upscroll- 


246 

* Routine vom 

Autostart 

-Monitor 


247 

* 




94C5: A5 23 

248 

RECHTS 

LDA 

WNDBTM 


94C7: 10 17 

249 


BPL 

L00P15 


94C9: 85 01 

250 

L00P17 

STA 

1 


94CB: 20 24 FC 

251 


JSR 

VTABZ 


94CE: A4 21 

252 


LDY 

WNDWDTH 


94D0: 88 

253 


DEY 



94D1: 88 

254 

L00P16 

DEY 



94D2: Bl 28 

255 


LDA 

(BASL),Y 


94D4: C8 

256 


INY 



94D5: 91 28 

257 


STA 

(BASL),Y 


94D7: 88 

258 


DEY 



94D8: D0 F7 

259 


BNE 

L00P16 


94DA: A5 FF 

260 


LDA 

$FF 


94DC: 91 28 

261 


STA 

(BASL),Y 


94DE: A5 01 

262 


LDA 

$01 



DB-MEISTER 

Adreß- und Schemabriefprogramm 

Der DB-Meister ist ein in Assembler ge¬ 
schriebenes, ungewöhniich schnelles, un¬ 
kompliziertes und zugleich „ narrensicheres “ 
Adreß-, Datei- und Schemabriefprogramm. 
Technische Daten 

- Recordlänge bis zu 230 Zeichen 

- 560 bis 1000 Records pro Datendiskette 

- Maximal 25 Felder pro Record 

- Suche nach 3 Indexfeldern 

- Ausdruck der Dateien als Etiketten, Listen 
und Schemabriefe (mit Felder- und Tasta¬ 
tureinschüben an beliebigen Stellen des 
Formbriefes) 

- normal kopierbare Programmdiskette, un¬ 
terteilt in Hauptprogramme und diverse 
Hilfsprogramme 

- einsatzfähig auf Apple Ile, llc oder II Plus 
mit 2 Drives (1 Drive ebenfalls möglich) 

Gesamtpreis 290,- (2 Disketten -F ge¬ 
drucktes Manual) 

U. Stiehl 

c/o Dr. A. Hüthig Verlag 
Postfach 10 28 69 • 6900 Heidelberg 


AS.ERWEITERUNG und ProDOS 

Damit die AS.ERWEITERUNG auch unter 
ProDOS läuft, wurde das Assemblerpro¬ 
gramm mit ORG $9778 (statt $9378) neu 
assembliert, nachdem die HIMEM-Pokes 
(MEMSIZ) zu Beginn des Programms 
durch die entsprechende Anzahl von 
NOPs ersetzt wurden. Diese Neuversion 
findet sich unter dem Namen „AS.ERW- 
.PRO“ auf der Peeker-Sammeldisk #6 
und ist-wenn man von der Verschiebung 
um $0400 nach oben absieht - mit der 
DOS-Version identisch. Ferner war ein 
kurzes Applesoft-Start-Programm namens 
„AS.ERW.PROSTART“ erforderlich, das 
HIMEM über die sog. GETBUFFER-Routi- 
ne ändert. Kopieren Sie also AS.ERW- 
.PRO und AS.ERW.PROSTART von der 
DOS-Sammeldisk auf Ihre ProDOS-Disk 
(mit Hilfe der CONVERT-Utility) und star¬ 
ten Sie dann die Ampersand-Routinen mit 
RUN AS.ERW.PRO 

Die Speicherverteilung sieht dann unter 
ProDOS wie folgt aus: 

$9300: HIMEM 
$9300-$96FF: ProDOS-Puffer 
$9778-$99FF: AS.ERW.PRO 
$9A00: Beginn von BASIC.SYSTEM 
Wie man unter ProDOS Assemblerpro¬ 
gramme oberhalb von HIMEM ansiedelt, 
wird in einem späteren Peeker-Artikel ge¬ 
zeigt. U. Stiehl 
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94E0 

94E1 

94E3 

94E4 

94E6 

94E8 


94EB: 

94ED: 

94EF: 

94F1: 

94F3: 

94F6: 

94F8; 

94F9: 

94FB: 

94FC: 

94FE: 

94FF: 

9501: 

9503: 

9505: 

9507; 

9509: 

950A: 

950C: 

950D: 

950F: 

9511: 

9514: 

9516; 


9517: 
9519: 
951A; 
951B; 
951C; 
951F: 
9521: 
9523: 
9525: 
9527: 
9529: 
952A; 
952B: 
952C: 
952E; 
952F: 
9531: 
9533: 
9534: 
9537: 
9539: 
953B: 
953C: 
953E: 
9540: 
9542: 
9543: 
9545: 
9547: 
9548: 
954A: 


95 4D: 
9550: 


9553; 
9555: 
9557: 
9559: 
955B: 
955C: 
955E: 
9560: 
9563 : 


AppUsoFr 


38 

263 

L00P15 

SEC 



9565; 

F0 

lE 


351 


BEQ 

UPSCR 

E9 01 

264 


SBC 

*$01 


9567; 

20 

AC 

94 

352 


JSR 

NOGRAFIK 

38 

265 


SEC 



956A; 

A9 

14 


353 

WDWRESTO 

LDA 

#20 

C5 22 

266 


CMP 

WNDTOP 


956C: 

85 

22 


354 


STA 

WNDTOP 

10 El 

267 


BPL 

L00P17 


956E: 

68 



355 


PLA 


4C Bl 00 

268 


JMP 

CHRGET 


956F: 

85 

23 


356 


STA 

WNDBTM 


269 





9571: 

60 



357 


RTS 



270 

* - Links-Scrollen - 


9572: 

A9 

00 


358 

SCRGR 

LDA 

#$00 


271 

* Umgeschriebene Upscroll-Routine 


9574: 

85 

22 


359 


STA 

WNDTOP 


272 

% vom Autostart-Monitor 


9576: 

85 

FF 


360 


STA 

$FF 


273 

% 




9578: 

A5 

23 


361 


LDA 

WNDBTM 

C6 21 

274 

LINKS 

DEC 

WNDWDTH 


957A: 

48 



362 


PHA 


A5 23 

275 


LDA 

WNDBTM 


957B: 

A9 

14 


363 


LDA 

#20 

10 18 

276 


BPL 

L00P21 


957D: 

85 

23 


364 


STA 

WNDBTM 

85 01 

277 

L00P22 

STA 

1 


957F: 

20 

C5 

94 

365 


JSR 

RECHTS 

20 24 FC 

278 


JSR 

VTABZ 


9582; 

4C 

6A 

95 

366 


JMP 

WDWRESTO 

A0 00 

279 


LDY 

#$00 


9585; 

20 

70 

FC 

367 

UPSCR 

JSR 

SCROLL0 

C8 

280 

L00P23 

INY 



9588: 

20 

Bl 

00 

368 


JSR 

CHRGET 

Bl 28 

281 


LDA 

(BASL),Y 


958B: 

A0 

27 


369 


LDY 

#$27 

88 

282 


DEY 



958D; 

A9 

00 


370 


LDA 

#$00 

91 28 

283 


STA 

(BASL).Y 


95 8F: 

99 

D0 

05 

371 

INC 

STA 

$05D0.Y 

C8 

284 


INY 



9592; 

88 



372 


DEY 


C4 21 

285 


CPY 

WNDWDTH 


9593 : 

10 

FA 


373 


BPL 

INC 

D0 F5 

286 


BNE 

L00P23 


9595: 

30 

D3 


374 


BMI 

WDWRESTO 

A5 FF 

287 


LDA 

$FF 






375 

* 



91 28 

288 


STA 

(BASL),Y 






376 

*- 


— Sound-Routine - 

A5 01 

289 


LDA 

$01 






377 

* 



38 

290 

L00P21 

SEC 



9597: 

20 

Bl 

00 

378 

SOUND 

JSR 

CHRGET 

E9 01 

291 


SBC 

#$01 


959A: 

20 

46 

E7 

379 


JSR 

GETNUM ; Lese Parameter 

38 

292 


SEC 



959D: 

A4 

51 


380 


LDY 

LINNUM+1 

C5 22 

293 


CMP 

WNDTOP 


959F: 

F0 

03 


381 


BEQ 

OK 

10 E0 

294 


BPL 

L00P22 


95A1: 

4C 

99 

El 

382 


JMP 

ILLQUA 

20 Bl 00 

295 


JSR 

CHRGET 


95 A4; 

86 

01 


383 

OK 

STX 

$01 

E6 21 

296 


INC 

WNDWDTH 


95A6: 

A4 

01 


384 

REPEAT 

LDY 

$01 

60 

297 


RTS 



95A8: 

A6 

50 


385 

REPl 

LDX 

LINNUM 


298 

% 




95AA: 

A9 

04 


386 


LDA 

#$04 


299 

*- 

- Down- 

Scroll - 


95AC: 

20 

A8 

FC 

387 


JSR 

WAIT j Wait-Routine 


300 

* Umgeschriebene Upscroll-Routine 


95AF: 

AD 

30 

C0 

388 


LDA 

SPKR ; Lautsprecher 


301 

# vom Autostart-Monitor 


95B2: 

E8 



389 

DELAY 

INX 



302 

¥ 




95B3: 

D0 

FD 


390 


BNE 

DELAY 

A6 23 

303 

DOWN 

LDX 

WNDBTM 


95B5; 

88 



391 


DEY 


CA 

304 


DEX 



95B6: 

D0 

F0 


392 


BNE 

REPl 

8A 

305 


TXA 



95B8: 

C6 

01 


393 


DEC 

$01 

48 

306 


PHA 



95BA: 

D0 

EA 


394 


BNE 

REPEAT 

20 24 FC 

307 


JSR 

VTABZ 


95BC: 

60 



395 


RTS 


A5 28 

308 

LOOP40 

LDA 

BASL 






396 

* 



85 2A 

309 


STA 

BAS2L 






397 

*- 


- &GR-Routine - 

A5 29 

310 


LDA 

BASL+1 






398 

% 



85 2B 

311 


STA 

BAS2L+1 


95BD 

AD 

50 

C0 

399 

GR 

LDA 

$C050 

A4 21 

312 


LDY 

WNDWDTH 


95C0 

AD 

53 

C0 

400 


LDA 

$C053 

88 

313 


DEY 



95C3 

AD 

54 

C0 

401 


LDA 

$C054 

68 

314 


PLA 



95C6 

AD 

56 

C0 

402 


LDA 

$C056 

38 

315 


SEC 



95C9 

20 

Bl 

00 

403 


JSR 

CHRGET 

E9 01 

316 


SBC 

#$01 


95CC 

4C 

49 

FB 

404 


JMP 

$FB49 

38 

317 


SEC 







405 

* 



C5 22 

318 


CMP 

WNDTOP 






406 

*- 


- &HGR-Routine - 

30 0D 

319 


BMI 

L00P41 






407 




48 

320 


PHA 



95CF 

AD 

50 

C0 

408 

HGR 

LDA 

$C050 

20 24 FC 

321 


JSR 

VTABZ 


95D2 

AD 

53 

C0 

409 


LDA 

$C053 

Bl 28 

322 

L00P42 

LDA 

(BASL),Y 


95D5 

AD 

54 

C0 

410 


LDA 

$C054 

91 2A 

323 


STA 

(BAS2L),Y 


95D8 

AD 

57 

C0 

411 


LDA 

$C057 

88 

324 


DEY 



95DB 

A9 

20 


412 


LDA 

#$20 

10 F9 

325 


BPL 

L00P42 


95DD 

85 

E6 


413 


STA 

HPAG ; 1. Seite 

30 DF 

326 


BMI 

LOOP40 


95DF 

4C 

Bl 

00 

414 


JMP 

CHRGET 

A4 21 

327 

L00P41 

LDY 

WNDWDTH 






415 




88 

328 


DEY 







416 

* - 


- &HGR2-Routine - 

A5 FF 

329 


LDA 

$FF 






417 

* 



91 28 

330 

L00P45 

STA 

(BASL),Y 


95 E2 

AD 

50 

C0 

418 

HGR2 

LDA 

$C050 

88 

331 


DEY 



95 E5 

AD 

52 

C0 

419 


LDA 

$C052 

10 FB 

332 


BPL 

L00P45 


95 E8 

AD 

55 

C0 

420 


LDA 

$C055 

4C Bl 00 

333 


JMP 

CHRGET 


95EB 

AD 

57 

C0 

421 


LDA 

$C057 


334 

* 




95EE 

A9 

40 


422 


LDA 

#$40 


335 

^ - 

Up-Scroll - 


95F0 

85 

E6 


423 


STA 

HPAG : 2. Seite 


336 

* 




95F2 

4C 

Bl 

00 

424 


JMP 

CHRGET 

20 70 FC 

337 

UP 

JSR 

SCROLL0 ; Upscroll 






425 

* 



4C Bl 00 

338 


JMP 

CHRGET 






426 

* Ablegen von 

'Scroll’ und 


339 

* 








427 

* 'Sound 

’ als 

ASCII-Code zum 


340 

¥- 

Low-Grafik-Scroll - 






428 

* späteren Vergleich 


341 

* 








429 

* 



A9 00 

342 

SCROLLG LDA 

#$00 


95 F5 

53 

43 

52 

430 

SCROLLl 

ASC 

'SCROLL' 

85 FF 

343 


STA 

$FF 


95F8 

4F 

4C 

4C 





85 22 

344 


STA 

WNDTOP 


95FB 

53 

4F 

55 

431 

SOUNDl 

ASC 

'SOUND' 

85 23 

345 


STA 

WNDBTM 


95FE 

4E 

44 






48 

346 


PHA 










_ /_ 

A9 14 

347 


LDA 

#20 


648 Bytes 






85 23 

348 


STA 

WNDBTM 










20 Bl 00 

349 


JSR 

CHRGET 










C9 55 

350 


CMP 

#'U ; Up? 
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RAM-Disk-Driver für 


Pascal 1.1 


von Michael Schröter 


I 

1. Theorie 


2. Praxis 


Eine ausgesprochen nützliche Erweite¬ 
rung für den Apple Ile ist die erweiterte 80- 
Zeichenkarte. Eine der vielen neuen Mög¬ 
lichkeiten, den zusätzlichen Speicher aus¬ 
zunutzen, besteht in der Simulation einer 
Diskette. Dies ist natürlich vom verwende¬ 
ten Betriebssystem abhängig. Nachdem 
eine solche Simulation für DOS 3.3 bereits 
veröffentlicht wurde (vgl. (1) sowie Peeker 
1/2, 85 und 4/85), soll hier ein entspre¬ 
chendes Konzept für PASCAL 1.1 vorge- 
stellt werden. Zunächst einige Vorbemer¬ 
kungen: 

Im Gegensatz zu DOS 3.3 werden Peri- 
I pheriegeräte (Devices oder Volumes) in 

! Pascal nicht über Slot und Drive selektiert, 

sondern über ihre entsprechende Unit¬ 
nummer angesprochen (vgl. (2), S. 26, 
276-277). Die Verwaltung übernimmt der 
Interpreter, die eigentliche Ausführung 
das BIOS (Basic Input Output System). 
Schnittstelle zwischen dem p-code (also 
' dem compilierten Pascal-Programm) und 

I dem BIOS sind die Unit-Prozeduren des 

Interpreters. Da (3) nicht alle verfügbaren 
Prozeduren beschreibt, seien sie hier 
noch einmal kurz genannt: 

UNITBUSY (unitno), UNITWAIT (unitno), 
UNITCLEAR (unitno). UNITSTATUS (unit¬ 
no, array, mode); 

I UNITREAD (unitno, array, length, block, 

mode); 

UNITWRITE (unitno, array, length, block, 

I mode). 

Bei genauerer Untersuchung stellt man 
fest, daß selbst „höhere“ Prozeduren wie 
BLOCKREAD und sogar GET, PUT, SEEK, 

I WRITE usw. ausschließlich über diese 

Unit-Prozeduren mit dem BIOS verkeh¬ 
ren. Weiterhin sind nur die 4 letztgenann¬ 
ten Prozeduren unitspezifisch, denn nur 
sie werten die Unit-Number auch tatsäch¬ 
lich aus, um die entsprechenden BIOS- 
Routinen anzusteuern. Den eigentlichen 
Aufruf übernimmt dann die Schnittstelle 
I zwischen Interpreter und BIOS. 


Hier werden die einzelnen Devices in ver¬ 
schiedenen Tabellen verwaltet. Die erste 
Tabelle ($FE80..$FEAF) enthält die „be¬ 
nutzer-definierbaren Sprungvektoren “. 
Der Anwender kann bis zu 16 eigene De¬ 
vices verwalten lassen, die dann den Unit¬ 
nummern 128..143 zugeordnet sind (übri¬ 
gens eine Möglichkeit, über die sich die 
Apple-Handbücher ebenfalls ausschwei¬ 
gen). Da das Laufzeitsystem hiervon kei¬ 
nen Gebrauch macht, soll darauf auch 
nicht näher eingegangen werden. 

Die systemspezifischen Geräte (also die 
Units 1..12) werden in einer eigenen Ta¬ 
belle ($FEB0..$FEC7) verwaltet. Für jedes 
Device sind dabei 2 Bytes vorgesehen, 
wobei bei einem Aufruf folgende Zuord¬ 
nung erfolgt: Ist das High-Byte (also 
$FEB1 für Device 1, $FEB3 für Device 2 
usw.) derTabelle = $00, so wird die BIOS- 
Routine zur Disk-Verwaltung gerufen. Ist 
das High-Byte hingegen = $FF, so liegt 
ein Non-blocked-Device vor (also etwa 
CONSOLE oder PRINTER), und eine dritte 
Tabelle ($EEAD..$EECC) steuert den 
BIOS-Aufruf. Alle anderen Vorgefundenen 
Werte werden als eine „indexed indirect 
address“ behandelt, d.h. als Anfangs- 
adresse-1 der Händler-Routine. Genau 
hier hakt auch das folgende Programm ein. 
Noch ein Wort zur Übergabe der Parame¬ 
ter: Wird der Interpreter für eine Disketten¬ 
operation verlassen, so findet das BIOS 
die Parameter in folgender Ordnung auf 
dem Systemstack (je 2 Bytes mit dem 
Low-Byte an oberster Stelle): 


Top of Stack: 

Blocknummer 

Anzahl der zu übertragenen Bytes 
Adresse des Arrays 
Unitnummer 
Modeparameter 

Bei Diskettenoperationen ist der Modepa¬ 
rameter immer = $00. Das gleiche gilt für 
das High-Byte der Unitnummer. 


Da der 6502 lediglich in der Lage ist, 64K 
zu adressieren, muß man beim Verwalten 
der zusätzlichen 64K auf die Softswitches 
bzw. die Firmware-Routinen AUXMOVE 
und XFER zurückgreifen (vgl. (4), S. 71). 
Diese beiden Prozeduren übernehmen 
auch die Hauptarbeit im Programm. Aller¬ 
dings ist man mit ihnen nur in der Lage, 
den Speicherbereich von $0200 bis 
$BFFF zu manipulieren. (Anm. d. Red.: 
Die gleiche Einschränkung gilt auch für 
das in (1) gelistete Programm. Deshalb 
soll zu einem späteren Zeitpunkt im 
Peeker ein Pascal-RAM-Disk-Driver veröf¬ 
fentlicht werden, der wie die Peeker-RAM- 
Disk-Programme für CP/M und DOS 3.3 
die 64K voll ausnutzt. Dann muß man al¬ 
lerdings auf AUXMOVE teilweise ver¬ 
zichten.) 

In dem Bereich $0200-$BFFF wird die 
RAM-Disk angelegt. Bekanntlich organi¬ 
siert Pascal seine Disketten im Blockfor¬ 
mat (1 Block = 512 Bytes). Ein File wird 
dann in zusammenhängenden, hinterein¬ 
anderliegenden Blöcken gespeichert. Bei 
einer neu initialisierten Diskette werden 
die eigentlichen Files erst ab Block 6 ge¬ 
speichert, weil die Blöcke 0 und 1 für das 
Boot-Programm reserviert sind und die 
Blöcke 2, 3, 4 und 5 das Directory der 
Diskette enthalten. Die RAM-Disk beginnt 
mit Block 2, da die Boot-Blöcke bei einer 
RAM-Disk keinen Sinn ergeben. Zu be¬ 
achten ist nun ferner, daß der Bereich 
$0400..$07FF für die 80-Zeichendarstel- 
lung benutzt wird. Somit beginnt Block 2 
bei $0800 und erstreckt sich bis ein¬ 
schließlich $09FF (was genau 512 Bytes 
ausmacht). Es kommt nun nur darauf an, 
die Blocknummer in die entsprechende 
Anfangsadresse des Hilfsspeichers zu 
transformieren. Das besorgt folgende Um¬ 
rechnung: 

Adresse (high):= Blocknummer ^2-1-4 
Adresse (low ):= 0 

Die maximale Adresse für einen Block ist 
$BE00. Mit $BE = 190 hat man also als 
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höchste Blocknummer: (190-4) / 2 = 93 
-ein Gewinn von 91 zusätzlichen Blöcken 
- dies sind immerhin 32% einer normalen 
Diskette. Schematisch ergibt sich dann 
folgender Aufbau für die RAM-Disk: 

$C000 RAM-Top 
$BE00 Block 93 
$BC00 Block 92 
usw. 

$0A00 Block 3 
$0800 Block 2 
$0400 Text-Page IX 
$0200 RAM-DIsk-Driver 
$0000 RAM-Bottom 

An das Progamm selbst wurde die Bedin¬ 
gung gestellt, daß es von allen Systemtei¬ 
len aus verfügbar sein sollte, so daß auch 
Filer, Compiler usw. zugreifen können. Es 
muß daher an einem Platz implementiert 
sein, an dem es nicht überschrieben wer¬ 
den kann. Der Interpreter selbst läßt für 
derartige Zusätze leider keinen Platz. Der 
Laufzeltkeller und die Halde verbieten, das 
Programm im Programmstack unterzubrin¬ 
gen. Ein geeignetes „Plätzchen“ findet 
sich allein im ungenutzten Bereich der 
Workarea des BIOS ab $BF80. Dort läßt 
sich aber beim besten Willen kein ganzes 
Treiberprogramm unterbringen. Somit 
wurde der Treiber, der für Parametertest, 
Umrechnung und Datentransfer zuständig 
ist, in den Hilfsspeicher „ausquartiert“, 
und zwar ab $0200. Im Hauptspeicher ab 
$BF80 liegt lediglich ein kurzes Interface, 
das alle Vorbereitungen für XFER trifft, den 
Treiber über XFER anspringt und schließ¬ 
lich alle Spuren beseitigt. 

Ist das Programm erst einmal installiert, so 
muß nur noch die vorgenannte Tabelle auf 
$BF80 justiert werden, und die RAM-Disk 
ist angeschlossen. Die Strukturierung und 
den endgültigen Einbau in das Laufzeitsy¬ 
stem übernimmt dann die sonst wenig 
nützliche Zap-Funktion des Fllers. 

3. Programm 

Das Programm gliedert sich in drei Teile: 

1. Das Pascal-Programm RAMDISK94: 
Dieses Host-Programm übernimmt den 
Aufruf von INIT und prüft, ob die RAM- 
Disk schon initialisiert wurde. Der Hilfs¬ 
speicher wird nur bei Stromabschaltung 
gelöscht, so daß der Filer lediglich bei 
einem Kaltstart benötigt wird. Die Kon¬ 
stante Device ist die Volume-Nummer der 
RAM-Disk. Hier vorgenommene Änderun¬ 
gen müssen sinngemäß auch bei INIT und 
INSTALL erfolgen. 




2. Das Assembler-Programm INIT: 

Dieses Programm umfaßt die Initialisie¬ 
rungsroutine, die den Treiber in den Hilfs¬ 
speicher nach $0200 und das Interface in 
den Hauptspeicher nach $BF80 schiebt 
und schließlich die Device-Tabelle anpaßt. 
Ferner enthält INIT die Interface-Routine 
(INFCE) und den Treiber selbst 
(MANAGE). 

3. Den Exec-File INSTALL: 

Es dient der Filer-Steuerung beim Kalt¬ 
start. Man erhält den File folgendermaßen: 
Aus der Command-Prompt-Line heraus 
wähle man 
M(ake exec. 

Zu diesem Zeitpunkt müssen alle betroffe¬ 
nen Files verfügbar sein, also insbesonde¬ 
re der Filer selbst. Als Beispiel wird hier 
alles auf die Volume-Nummer 4 bezogen. 
Dann entwickelt sich folgender Dialog: 

New exec name: #4:INSTALL.TEXT 
Terminator = %, change it? N <hier be¬ 
ginnt der Exec-File 
F <um den Filer aufzurufen 
Z <das Z(ap Kommando 
#11 <die installierte Device-Nummer 
N <keine Directory-Kopie 
94 <Anzahl der Blöcke auf Device #11 
(s.o.) 

RAMDISK <Device-Name 
Y <RAMDISK ist der richtige Name 

(Der folgende Dialog dient zur Übertra¬ 
gung einiger häufig gebrauchter Files auf 
die neue „Diskette“. Man kann natürlich 
auch andere Programme übertragen oder 
sie ganz frei lassen) 

T <fürT(ransfer 

#4:SYSTEM.FILER <z.B. den Filer 
#11 :$ <zur neuen „Diskette“ 
#4:SYSTEM.EDITOR <und den Editor 
# 11 :$ 

Q <das war's 
%% <Ende EXEC File 

Damit Ist die RAM-Disk verfügbar. 


Literatur 

(1) Douglas Peterson, RAMDISK64, Nib¬ 
ble Magazine, 9/1984, S. 33. 

(2) Apple Computer, Apple Pascal Opera- 
ting System Reference Manual. 

(3) Apple Computer, Apple Pascal 
Language Reference Manual. 

(4) Apple Computer, Reference Manual for 
Ile only. 


Peeker-Sammeldisk #6 

ZU Heft 6/1985, einzeln DM 28,- 
im Fortsetzungsbezug DM 20- 

A 024 HELLO 
B 114 ASMDIV 

B 002 CURSOR1 
T 004 T.CURSOR1 
B 002 CURSOR2 
T 004 T.CURSOR2 
B 002 LINIE 
T 005 T.LINIE 
B 002 VIERECK 
T 005 T.VIERECK 
B 002 BOX 
T 009 T.BOX 
B 002 HINTERGRUND 
T 005 T.HINTERGRUND 
B 002 PAGE.SWAP 
T 004 T. PAGE.SWAP 

A 003 WANDERNDER.STRICH 
A 004 KOMPRESSOR.DEMO 
A 003 KREIS.1 
A 004 KREIS.2 
A 004 KREIS.3 
B 002 FLIPPER 
T 005 T.FLIPPER 
B 002 KOMPRESSOR 
T 012 T.KOMPRESSOR 

B 003 OLYMPIA 
T 021 T.OLYMPIA 

A 043 FOURIER.MAIN 
A 019 FOURIER.SYN 
A 020 FOURIER.SPEC 

B 004 AS.ERWEITERUNG 
T 028 T.AS.ERWEITERUNG 
A 003 AS.ERW.PROSTART 
B 004 AS.ERW.PRO 
T 017T.AS.ERW.PRO 

T 002 INSTALL.PASCAL.SOURCE 
T 005 RAMDISK94.PASCAL 
SOURCE 

T 032 INIT.PASCALSOURCE 

A 002 RAMDISK.INIT.DOS 
B 002 AUXDRIVER 
T 010 T.AUXDRIVER 
B 002 MOVEDRIVER 
T 004 T.MOVEDRIVER 
B 002 RAMDISK.FORMATTER 
T 006 T.RAMDISK.FORMATTER 

A 002 SOLITAIRE.START 
A 029 SOLITAIRE 
B 004 SOLITAIRE.B 
T 016T.SOLITAIRE.B 
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RAMDISK94.PASCAI..SOURCE 

PROGRAM RAMDISK94; 

USES CHAINSTUFF; 

CONST 

device = 11; 

PROCEDURE inlt; EXTERNAL: 

FUNCTION check : boolean; 

{check stellt fest, ob RAMDISK schon vorhanden ist) 
(Falls true, braucht nicht mehr gezapt zu werden} 
VAR 

{idrec ist ein Ausschnitt aus dem) 
(eventuellen Directory-Eintrag} 
integer: 
integer; 

0 . . 8 ; 

string[7] 


idrec : 

RECORD 
first 
last 
ftype 
vname 
END; 

BEGIN 

check := false; 

{$ 1 -} 

UNITREAD (device,idrec,SIZEOF(idrec), 2); 

($ 1 +) 

IF lORESULT = 0 THEN 
WITH idrec DO BEGIN 

IF (first=0) AND (last=6) AND (ftype=0) 

AND (vname='RAMDISK') THEN 

check := true (RAM-Disk schon initialisiert} 

END 

END; 

BEGIN 

SETCHAIN ( " ); INIT; 

IF NOT check THEN 

SETCHAIN ('EXEC/INSTALL') 

END. 


INIT.PASCAL.SOURCE 


; Installationsroutine 


Al 

A2 

A4 

XADR 

RETURN 

XFER 

AUXMOVE 

SLOTCXRD 

SLOTCXON 

SLOTCXOF 

HIRESOF 

DISKSTAT 

DSKVCT 


,EQU 3C 
,EQU 3E 
.EQU 42 
.EQU SED 

EQU 0 

.EQU 0C314 
.EQU 0C311 

.EQU 0C015 
.EQU 0C006 
.EQU 0C007 

.EQU 0C056 

.EQU 0DCC5 

.EQU 0FEAE 


; Default—Disk—Status-Routine 
: Basisadresse der Unittabelle 


.MACRO POP 
PLA 

STA %1 
PLA 

STA %1+1 
.ENDM 

.MACRO PUSH 
LDA %1+1 
PHA 

LDA %1 

PHA 

.ENDM 


.PROC INIT 


; Die Initialisierungsroutine 


ßCK 

STAT 

DEVICE 


POP RETURN 

LOAD Al,RETURN+2,8 

LDA #00 

STA A4 

LDA #02 

STA A4+1 

LDA DRVST 

STA Al 

LDA DRVST+1 

STA Al+1 

LDA DRVED 

STA A2 

LDA DRVED+1 

STA A2+1 

JSR MVE 

LOAD INFCE,0BF80,7F 

LDA DEVICE 
ASL A 
TAY 

LDA #7F 

STA DSKVCT,Y 

INY 

LDA #0BF 

STA DSKVCT,Y 

LOAD RETURN+2,A1.8 

PUSH RETURN 

RTS 

LDA SLOTCXRD 
STA STAT 
STA SLOTCXOF 
SEC 

JSR AUXMOVE 
LDA STAT 
BMI BCK 
STA SLOTCXON 
RTS 


Platz schaffen 

Treiber im 
Hilfsspeicher 
ab $0200 ablegen 


.BYTE 
.BYTE 11. 
1 


verschieben 
Interface nach 
$BF80 schieben. 
Tabelle für 
Device #11 justieren 


Rekonfiguration 

und Ende 

Firmware-Status 
testen und sicher¬ 
stellen, daß 
Firmware zugeschaltet 
ist. 

Firmware-Status wieder 
hersteilen. 


kann geändert werden 


Das Interface Programm zur Treibersteuerung 
X- Register enthält Operationsparameter: 


X = 0 
X = 1 
X = 2 
X = 3 


UNITREAD 

UNITWRITE 

UNITCLEAR 

UNITSTATUS 


CPX 

+2 

; keine Aktivität bei 

BNE 

DEFSTAT 

; UNITCLEAR 

LDX 

#00 


RTS 



CPX 

#3 

; Stack leeren durch 

BNE 

BEGIN 

; Default-UNITSTATUS 

JMP 

DISKSTAT 


STA 

HIRESOF 

: Wichtig: Abschalten, um 
; Überschreibungen zu verhindern 

POP 

RETURN 

; alte Werte sichern 

LDA 

XADR 


STA 

RETURN+10. 


LDA 

XADR+1 


STA 

RETURN+11. 


LDA 

#00 

; $0200 ist Treiberstart 

STA 

XADR 


LDA 

#02 


STA 

XADR+1 


LDA 

SLOTCXRD 

; s.o , Firmware muß zugeschaltet 

STA 

RETURN+12. 

; sein 

STA 

SLOTCXOF 


CLV 



SEC 
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LDA RETURN+12. 
BMI DONE 
STA SLOTCXON 
LDA RETURN+10. 
STA XADR 
LDA RETURN+11. 
STA XADR+1 
PUSH RETURN 
RTS 


JSR wird verwendet, um die 
Return-Adresse zu sichern 

<- Return-Punkt ist hier 

Firmware wieder herstellen 

die alten Werte wieder einset^ei 

zurück zum Hauptprogramra 


Es folgt das Treiber Programm, 
Zuoberst auf dem Stack liegt die 
Return-Adresse-1 


DRVST 


.WORD DRVST+2 


CLC : 

PLA ; 

ADC #01 
STA XADR 
PLA 

ADC #00 

STA XADR+1 

LOAD Al,RETURN+2, 

PLA ; 

TAY 

PLA 

CPY #94. ; 

BCS ERROR ; 

CPY #2 

BCC ERROR 

TYA ; 

ASL A 

CLC 

ADC +4 
TAY 

TXA ; 

BEQ READ ; 

STY A4+1 ; 

LDA #0 
STA A4 
PLA 

STA A2 
PLA 

STA A2+1 
CLC 
PLA 
STA Al 
ADC A2 
STA A2 
PLA 

STA Al+1 
ADC A2+1 
STA A2+1 

SEC : 

BCS DISCARD 


Return-Adresse fixieren 
und Workarea freiraachen 


Blocknummer holen 


Block >= 94 (dez) 
oder < 2 ist unzulässig 


Umrechnung auf Speicheradresse 


verzweigen zur entsprechenden 
Operation 

UNITWRITE simulieren 


C=1 für Main-Aux-Transfer 


READ 

STY Al+1 

LDA #0 

STA Al 

: UNITREAD simulieren 


CLC 

PLA 

ADC Al 

STA A2 

PLA 

ADC Al+1 

STA A2+1 

PLA 

STA A4 

PLA 

STA A4+1 

CLC 

; C=0 für Aux-Main-Transfer 

DISCARD 

PLA 

; Unitnummer und 


PLA 



PLA 

; Modeparameter vergessen 


PLA 



PHP 



LDA A2 

; End-Adresse von Source 


BNE EXEC 

DEC A2+1 

; ausgleichen 

EXEC 

DEC A2 

PLP 

JSR AUXMOVE 

; Ausführung und 

OUT 

LDX #0 

BEQ BACK 

; Rückkehr ohne Fehler 

ERROR 

PLA 

; Im Falle eines Fehlers: 


PLA 



PLA 

: Stack leeren und 


PLA 

; mit Fehlerindikator 


PLA 

; 'No room on volume’ 


PLA 

PLA 

PLA 

LDX #8 

; zurück 

BACK 

LOAD RETURN+2, 

,A1,8 ; alte Werte wieder 

OUTl 

CLC 

; einsetzen und zurück 


CLV 

JMP XFER 

; zum Interface 

DRVED 

.WORD DRVED-1 



.END 


INSTALL.PASCAL.SOURCE 


%FZ#11 

N94 

RAMDSIISK 
YT#4:SYSTEM 
#11:$ 

.FILER 


T#4:SYSTEM. 

EDITOR 

_ 0 _ 

#11:$ 

Q.%%%% 
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ProDOS 

Theorie und Praxis 


von Ulrich Stiehl 

Im Peeker können wir aus Platz¬ 
gründen nicht alle Feinheiten des 
komplizierten Betriebssystems 
ProDOS darsteilen. Deshalb er¬ 
scheinen im Hüthig-Verlag in eini¬ 
gen Wochen zwei neue ProDOS- 
Bücher, das eine mehr theoreti¬ 
sche Werk von Arne Schäpers, das 
andere mehr praktische Buch von 
mir selbst. Hierzu sind einige 
grundsätzliche Anmerkungen er¬ 
forderlich. 


ProDOS für Aufsteiger, Band 2 

von U. Stiehl, Juni 1985, ca. 180 
Seiten. DM 28,- 

(Begleitdiskette gesondert erhält¬ 
lich, ebenfalls DM 28,-) 

Im Gegensatz zu DOS 3.3 hat die 
Firma Apple bei ProDOS eine neue 
Politik eingeschlagen. Um einer¬ 
seits die Besitzer von Nachbauten 
(einsichtig!) und andererseits die 
Produzenten von Fremdlaufwer¬ 
ken (weniger einsichtig!) von der 
Benutzung von ProDOS auszu¬ 
schließen, erscheinen in fast regel¬ 
mäßigen Abständen neue Pro- 
DOS-Versionen. Dies war zu dem 
Zeitpunkt, als ich den ersten Band 
von „ProDOS für Aufsteiger“ ver¬ 
faßte (Mai 1984), noch nicht abzu¬ 
sehen. Ursprünglich sollte der 
zweite Band neben einer Einfüh¬ 
rung in die Applesoft-Programmie- 
rung unter ProDOS eine Fülle von 
Tips und Tricks enthalten, um bei¬ 
spielsweise fremde Laufwerke auf 
ProDOS anzupassen usw. Neben 
den Urversionen für Entwickler 
sind jedoch inzwischen minde¬ 
stens 4 Versionen aufgetaucht, 
nämlich ProDOS 1.0.1, 1.0.2, 1.1 
und 1.1.1, und weitere Versionen 
werden mit Sicherheit folgen. Pro¬ 
gramme, die ProDOS an absoluten i 
Adressen patchen, wie beispiels¬ 
weise das FORMAT.LC-Programm 
im Peeker, Heft 5/85, sind damit 
versionsabhängig und in keinem 
Fall portabel. Selbst bei Diversi- 
DOS und anderen DOS-3.3-Va- 
rianten konnte man sich darauf 
verlassen, daß sich grundlegende 
Systemroutinen wie die RWTS im¬ 
mer an derselben Stelle befanden. 
Begann beispielsweise der Pro- 
DOS-Disk-Driver bis zur Version 
1.0.2 noch bei $F800, wie auch im 


„ProDOS Technical Reference 
Manual“ der Firma Apple angege¬ 
ben, so beginnt er bei der Version 
1.1.1 jetzt bei $D000. Aufgrund 
dieser geänderten Sachlage habe 
ich für den zweiten Band von „ Pro- 
DOS für Aufsteiger" alle Program¬ 
me so „seriös" geschrieben, daß 
sie grundsätzlich auf allen bisheri¬ 
gen und möglicherweise auch auf 
allen zukünftigen Versionen laufen, 
es sei denn, daß die MLI-Schnitt- 
stelle und die Dateistrukturen als 
solche radikal geändert werden. 

Der zweite Band beginnt mit einer 
bewußt leichtverständlichen Ein¬ 
führung in das BASIC.SYSTEM für 
Applesoft-Programmierer. Danach 
werden vermischte Tips und Tricks 
gegeben, soweit sie unter dem 
BASIC.SYSTEM noch zulässig 
sind, z.B. zu den Problemen Hires- 
Grafik und FRE-Befehl, INPUT bei 
Strings mit Kommas und Doppel¬ 
punkten, Speichern von Zahlen- 
Arrays als Binärfiles, Simulation 
des fehlenden MON-Befehls usw. 
Sodann folgt eine umfangreiche 
Sammlung von überwiegend in 
Assembler geschriebenen, sofort 
einsatzfähigen Hilfsprogrammen: 

- Dateileseprogramme zum Einle¬ 
sen von Dateien beliebiger Größe 
zwecks Ausgabe als ASCII- oder 
Hexdump auf dem Bildschirm bzw. 
Drucker. 

- Diskettenkopierprogramme für 
1 -Drive- und 2-Drive-Besitzer 
(analog zu COPYA). 

- Dateikopierprogramme analog zu 
FID. Das eine der beiden Program¬ 
me ist fast ausschließlich in Ap¬ 
plesoft geschrieben, um die Lei¬ 
stungsfähigkeit der BASIC.SY- 
STEM-Befehle zu veranschauli¬ 
chen. 

- Konvertierungsprogramm für die 
Richtung DOS 3.3 nach ProDOS. 

- Ferner Diskettenvergleichspro¬ 
gramm, Formatierungsprogramm 
(versionsunabhängig!), Bad- 
Block-Routine u.a. 


Die ProDOS-Analyse 

von A. Schäpers, Juli 1985, ca. 
450 Seiten, ca. DM 54,- 

Auch wenn Arne Schäpers jetzt rot 
wird, muß es einmal an dieser Stel¬ 
le gesagt werden: Sein Buch ist 
die umfangreichste und detaillier¬ 
teste Darstellung, die jemals ein 
Apple-Betriebssystem erfahren 
hat. In der nunmehr zur Neige ge¬ 
henden DOS-3.3-Ära war „Be- 
neath Apple DOS“ von D. Worth 
und P. Lechnerdie „Bibel" für alle. 


die wissen wollten, was DOS 3.3 
zum „Ticken“ bringt. Den Nachfol¬ 
geband „Beneath Apple ProDOS“, 
der im Sommer 1984 erschien, 
empfand Ich persönlich als eine 
herbe Enttäuschung, weil dort im 
wesentlichen nur das repetiert 
wurde, was bereits im „ProDOS 
Technical Reference Manual“ 
stand. Wer deshalb die teilweise 
„verqueren Innereien“ von Pro- 
DOS bis zum letzten Byte - um 
nicht zu sagen Bit - kennenlernen 
möchte, der sollte sich diese volu¬ 
minöse Werk von Arne Schäpers 
zulegen, welches das komplette 
Betriebssystem (Urlader, MLI, 
Disk-Driver, RAM-Disk-Driver und 
Thunderclock-Routine) - mit Aus¬ 
nahme des BASIC.SYSTEMS, das 
zu einem späteren Zeitpunkt ge¬ 
sondert behandelt wird - mit um¬ 
fangreichen Kommentaren und 
Übersichtstabellen disassembliert. 
Während der zweite Band von 
„ProDOS für Aufsteiger" fertige 
Utilities enthält, die man auch dann 
anwenden kann, wenn man über 
keine Assemblerkenntnisse ver¬ 
fügt, wendet sich die „ProDOS- 
Analyse" an den reinen Assem¬ 
blerprogrammlerer, dem sich je¬ 
doch gerade wegen der minutiö¬ 
sen theoretischen Sezierung von 
ProDOS völlig neue programmier¬ 
praktische Perspektiven eröffnen. 
Durch die parallele Darstellung al¬ 
ler bisher vorliegenden Versionen 
- insbesondere 1.0.2 und 1.1.1 - 
ergeben sich zudem interessante 
Einsichten in den „Programmier¬ 
stil" der Firma Apple, Ferner kön¬ 
nen Programmierer, die ProDOS 
versionsabhängig patchen möch¬ 
ten, hier genau überblicken, wo 
gepatcht werden muß, damit dies 
keine negativen Konsequenzen 
hat. 

Daß auch das BASIC.SYSTEM von 
uns genauer unter die Lupe ge¬ 
nommen werden muß und wird, 
zeigt das nachfolgende Beispiel¬ 
programm, Wenn man es - nach¬ 
dem man es unbedingt zuvor auf 
Diskette gespeichert hat! - dreimal 
startet, und zwar mit 
RUN 

RUN 130 
RUN 140 

stellt man beim dritten Durchlauf 
fest, daß es sich selbst zerstört hat. 
Dieser Bug wurde in einem Leser¬ 
brief an die amerikanische „Nib¬ 
ble“ erwähnt, doch wurde dort kei¬ 
ne Lösung des Problems angebo- 
ten und im übrigen gemutmaßt, 
daß der Bug nur dann auftritt, wenn 
das Applesoft-Programm weniger 


als 1 Block (= 512 Bytes) lang ist. 
Dies ist jedoch nicht der Fall. Viel¬ 
mehr tritt die Programmzerstörung 
exakt dann auf, wenn unmittelbar 
nach dem LOAD oder RUN eines 
Applesoft-Programms von Disket¬ 
te eine sequentielle Textdatei mit 
OPEN - READ Feld-Nummer grö¬ 
ßer 0 eröffnet wird. Danach wird 
dieses Feld und nur dieses ab 
$0801 (Programmanfang) im Spei¬ 
cher abgelegt, und zwar als Zei¬ 
chenkette plus Return mit Bit 7 off 
(gilt auch für Zahlen). Daß man in 
Betriebssystemen immer wieder 
den einen oder anderen Bug fin- 
^det, ist nichts Neues, daß jedoch 
Betriebssysteme auch Programme 
zerstören, war mir bislang unbe¬ 
kannt. Ab der BASIC.SYSTEM 
Version 1.1, die zu PRODOS 1.1.1 
vom Herbst 1984 gehört, ist dieser 
Bug beseitigt. Doch wer bekommt 
schon diese Version? Als ich in 
diesem Jahr für die Peeker-Redak- 
tion einen Apple llc erwarb, befand 
sich auf der Systemdiskette („Sy¬ 
stem-Dienstprogramme“) noch 
die Version 1.0.2, und die Diskette 
„Einführung in BASIC“ enthält so¬ 
gar noch die Version PRODOS 
1.01 Sollte also die gekaufte Ver¬ 
sion nur dazu gedacht sein, daß 
man angeregt wird, zusätzlich die 
(hoffentlich dann weitgehend) feh¬ 
lerfreie Version zu kaufen? 

100 REM FIELD.BUG:F>0 
110 POKE 768,2 

120 PRINT CHR$ (4) “OPEN 

XXX“: PRINT CHR$ (4) 
“WRITE XXX“: FOR X = 1 TO 
10: PRINT X: NEXT : PRINT 
CHR$ (4) “CLOSE": GOTO 
150 

130 PRINT CHRS (4) “OPEN 

XXX“: PRINT CHR$ (4) 
"READ XXX": PRINT CHR$ 
(4) "CLOSE": REM Trick- 

Zeile 

140 PRINT CHR$ (4) “OPEN 

XXX": PRINT CHR$ (4) 
“READ XXX,F“1: INPUT X: 
PRINT CHRS (4) "CLOSE" 
150 LIST 

160 IF PEEK (768) = 2 THEN 
POKE 768,1: PRINT : PRINT 
“Jetzt RUN 130 tippen": 
PRINT CHRS (4) "LOAD 
FIELD.BUG“ 

170 IF PEEK (768) = 1 THEN 
POKE 768,0: PRINT : PRINT 
"Jetzt RUN 140 tippen“: 
PRINT CHRS (4) “LOAD 
FIELD.BUG" 

180 REM Ohne Trick-Zeile wird 
Applesoft-Programm zerstört! 
190 REM Gilt für ProDOS-BASIC- 
.SYSTEM bis Version 1.0.2 
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Gelegenheitsanzeigen 

Sie können unter dieser 
Rubrik zu einem besonders 
günstigen Preis 

• Ihre Hardware und 
Software verkaufen 

• Ihre Hard- und Software 
suchen 

• Kontakte knüpfen und 
vieles mehr 


Musteranzeige privat 

1 Druckzeile ä 32 Buch¬ 
staben nur DM 5 
zuzügl. ges. MwSt. 

Beispiel: 


Verkaufe neuwertigen Typenrad¬ 
drucker mit Apple-Interface. 

Preis auf Anfrage. Tel. 007 


nur DM 17,10 inkl. MwSt. 



MAGAZIN Für APPLE-COMPUTER 


o 



AUFTRAG FÜR KLEINANZEIGEN 

Bitte veröffentlichen Sie in der nächsterreichbaren Ausgabe nachstehenden 
Text unter folgender Rubrik: 

□ suche Hardware □ suche Software □ Tausch □ Verschiedenes 

n biete Hardware □ biete Software □ Kontakte □ Chiffre 



Bitte jeweils 32 Buchstaben pro Zeile-einschließlich Satzzeichen und Wort¬ 
zwischenräume. Bitte Absender nicht vergessen. 

Chiffregebühr DM 6 - zuzügl. MwSt. 
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Zu der in »peekers Heft*. 


MAGAZIN FÜR APPLE-COMPUTER 
Seite*___ erschienenen 


□ Anzeige □ Produktbesprechung 
über_ 


bitte ich um detaillierte Information. 

Ich wünsche □ Prospekt, Datenblatt □ Preisliste □ schriftliches Angebot □ tel. Rückruf 


Menge 

Produki und Beslelinummer 

4 DM 

gesamt DM 






















gebe ich neben¬ 
stehende Bestellung 
unter Anerkennung 
Ihrer in der Anzeige 
genannten Liefer- und 
Zahlungsbedingungen 
auf. 


Unterschrift (für Jugendliche unter 18 Jahren der Erziehungsberechtigte) 


Musteranzeige gewerblich 

Die einspaltige Millimeter- 
zeile (42 mm breit) kostet 
5,50 zuzügl. ges. MwSt. 

Beispiel: 


Neu im Angebot: Professionelle, 
separate Tastatur für Apple II 
plus 16 Funktionstasten und sepa¬ 
ratem Ziffernblock. 

Fa. Keyboard & Co. 

nur DM 137,94 inkl. MwSt. 




Schreiben Sie uns, wenn Sie Fragen, Ergänzungen oder Anregungen zu 
Aufsätzen in »peeker« haben: 
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Vorn^iTiQ, t^flmo 


Beruf 



Streflö 


ANTWORTKARTE 


Wohrvort 



PLZ 

Bitte veröffentlichen Sie den um¬ 
stehenden Text von-Zeilen 

ä_DM in der nächsterreich¬ 

baren Ausgabe von »peeker« 


Bei Angeboten: Ich bestätige, daß ich alle 
Rechte an den angebotenen Sachen besitze 


Datuc« 




peeker-Börse 

Anzeigen-Service 

Dr. Alfred Hüthig Verlag 
Postfach 10 28 69 
6900 Heidelberg 1 



S 

3 

■ö 
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Vorname, Name 


Firma 


Straße 


PLZ/Ort 


Telefon mit Vorwahl 



Anschrift der Firma angeben, bei der Sie 

bestellen bzw. von der Sie Informationen 
wünschen 



POSTKARTE 


Firma 


Straße 


PLZ^On 



POSTKARTE 


peeker 

Redaktion 

Postfach 10 2869 



PLZ/O n 


Telefon mit Vorwahl 


6900 Heidelberg 1 


Produkt- 

Karle 

Wünschen Sie 
weitere Informationen 
zu einem der im Heft 
vorgestellten 
Produkte ? 

Nichts einfacher als 
das. 

Produkt-Karte aus¬ 
füllen, mit 60-Rennig 
frankieren und 
absenden. 

Vorher aber nicht 
vergessen: 
kreuzen Sie an, 
welchen Informations 
wünsch Sie haben. 

Damit erleichtern Sie 
dem Hersteller 
eine gezielte Beant¬ 
wortung Ihrer Anfrag« 

Zum Schluß tragen 
Sie auf der Rück¬ 
seite die genaue 
Anschrift des 
Inserenten/Hersteller 
und Ihre vollständige 
Firmenanschrift ein. 




























































^ Cp/M 


Apple-CP/M 


Mit einem RAM-Disk-Driver für die 64K-Karte 


von Karl-Walter Bott 


Das Betriebssystem CP/M (Control Pro¬ 
gram for Microcomputer) ist immer noch 
eines der weitestverbreiteten Betriebssy¬ 
steme, obwohl mit dem Einstieg in die 16- 
Bit-Mikroprozessortechnik eine Reihe von 
neuen Betriebssystemen wie UNIX oder 
MS-DOS entwickelt worden sind, die we¬ 
sentlich leistungsfähiger sind als das auf 
den Apple-Il-Computern verfügbare CP/ 
M. Die Hauptgründe hierfür sind ein gro¬ 
ßes Software-Angebot und der relativ ge¬ 
ringe Preis für ein professionelles Be¬ 
triebssystem. 



Die Geschichte von CP/M begann 1978 
zu einer Zeit, als verschiedene Geräteher¬ 
steller eigene Betriebssysteme entwickel¬ 
ten, die aber geheim und dem Benutzer 
nicht zugänglich waren. Die vorhandene 
Software war nicht portabel. 

Mit dem Erscheinen von CP/M änderte 
sich das schlagartig. 


Die Urversion von CP/M wurde für Mikro¬ 
computer entwickelt, die mit einem 8-Bit- 
Mikroprozessor vom Typ 8080 ausgestat¬ 
tet waren. Die Besonderheit des Betriebs¬ 
systems besteht darin, daß nur ein Teil 
hardware-abhängig ist und der Benutzer 
eine genau definierte Schnittstelle zwi¬ 
schen hardware-abhängigem und -unab¬ 
hängigem Teil vorfindet. 


Peeker 6/85 


55 





































Bild 1 



0000H-0FFFH 

1000-$1FFF 1 

1000H- 

IFFFH = 

2000-$2FFF 

2000H-2FFFH !■ 

3000-$3FFF 

3000H-3FFFH s 

4000-$4FFF 

4000H-4FFFH = 

5000-$5FFF 

5000H-5FFFH 

6000-$6FFF 

7000H-7FFFH t 

8000-$8FFF 

8000H-8FFFH - 

9000-$9FFF 

9000H-9FFFH - 

A000-$AFFF 

A000H-AFFFH = 

B000-$BFFF 

B000H-BFFFH 

D000-$DFFF: Bank 2 der LC 

C000H-I 

CFFFH t 

E000-$EFFF; Bank 2 der LC 

D000H-DFFFH *= 

F000-$FFFF: Bank 2 der LC 

E000H-EFFFH 

C000-$CFFF 

F000H-FFFFH ^ 

0000-$0FFF: Zeropage, Stack, Bildschirm 

Bild 2 



Nr. 


Funktion 

$00 

BOOT 

Kaltstart 

$01 

WBOOT 

Warmstart 

$02 

CONST 

Konsolstatus 

$03 

CONIN 

Konsoleingabe 

$04 

CONOUT 

Konsolausgabe 

$05 

LIST 

Druckerausgabe 

$06 

PUNCH 

Stanzerausgabe 

$07 

READER 

Leserausgabe 

$08 

HOME 

Diskettenlesekopf in 0,0-Position 

$09 

SELDSK 

Auswahl des Laufv/erks 

$0A 

SETTRK 

Auswahl der Spur 

$0B 

SETSEC 

Auswahl des Sektors 

$0C 

SETDMA 

DMA-Adresse setzen 

$0D 

READ 

Lesen eines Track/Sectors 

$0E 

WRITE 

Schreiben eines Track/Sectors 

$0F 

LISTST 

Druckerstatus 

$10 

SECTRAN 

Übersetzung logisch /physik.Sektor 

Quelle 

: c' t 1984, Heft 9, S 82 


1. Aufbau des Betriebssystems 
CP/M 

CP/M besteht im wesentlichen aus fünf 
Modulen: 

a) Page 0 

Die Page 0 (OOOOH-OOFFH) ist ausschließ¬ 
lich für CP/M reserviert und enthält wichti¬ 
ge Code- und Datensegmente. (Hinweis: 
Hexadezimale Adressen werden im fol¬ 
genden für CP/M bzw. Z80 mit nachge¬ 
stelltem „H" und für 6502 mit vorange¬ 
stelltem „$“ gekennzeichnet.) 

b) TPA (Transient Program Area) 

Sie beginnt in der Seite 1 ab 0100H. Alle 
Anwenderprogramme werden ab dieser 
Adresse von Diskette in den Hauptspei¬ 
cher geladen und an der Adresse 0100H 
gestartet. 

c) CCP (Consoie Command Processor) 

Dies ist die eigentliche Schnittstelle zum 
Benutzer. Hier werden alle über die Tasta¬ 
tur eingegebenen Zeichen und Befehle 
verarbeitet upd interpretiert. Die Adresse, 
ab der der CCP in den Speicher gebracht 
wird, hängt von der Größe des verfügba¬ 
ren Gesamtspeicherraums ab. 

d) BDOS (Basic Disk Operating 
System) 

Das BDOS verwaltet alle angeschiosse- 
nen Diskettenlaufwerke und Ist für sämtli¬ 
che Ein- und Ausgabe-Operationen zu¬ 
ständig. Dem Benutzer wird hier eine Rei¬ 
he von Grundfunktionen zur Verfügung 
gestellt, z.B. Laufwerk auswählen, Datei 
öffnen oder Zeichen von der Konsole le¬ 
sen. Das BDOS ist ebenfalls völlig von der 
Hardware unabhängig und bildet mit dem 
CCP die Basis des Betriebssystems. Das 
BDOS wird ab Adresse CCP 4- 0800H In 
den Hauptspeicher geladen. 

e) BIOS (Basic Input Output System) 

Das BIOS ist der einzige hardware-abhän¬ 
gige Teil des Betriebssystems und führt 
alle Ein- und Ausgabe-Funktionen aus, 
z.B. Daten auf Drucker, Terminal oder Dis¬ 
kette bringen. Das BIOS wird ab Adresse 
CCP -h 1600H in den Speicher geladen. 

2. Apple II und CP/M 

Die Computer der Apple-Il-Serie sind in 
ihrer Grundausstattung nicht CP/M-fähig: 
Der Apple besitzt keinen Mikroprozessor 
vom Typ 8080 oder Z80. Weiterhin wird 
kein RAM-Bereich ab Adresse 0100H zur 
Verfügung gestellt, der durchgehend dem 


Benutzer zur Verfügung steht, da z.B. ab 
Adresse $0400-$07FF der Blldschirm- 
spelcher angesprochen wird und der Be¬ 
reich ab $C000-$CFFF ebenfalls tabu ist, 
da über diese Adressen die wichtigen 
Softswitches aktiviert werden und Adreß- 
bereiche für Speicher auf Zusatzkarten in 
den Slots 1 -7 reserviert sind. 

Abhilfe schafft hier die Z80-Karte. Ge¬ 
meint ist damit die „normale“ Z80-Karte, 
die keinen Zusatzspeicher und keinen ei¬ 
genen Systemtakt besitzt. Sie ermöglicht 
den Betrieb von CP/M 2.2; CP/M 3.0 Ist 
nicht ablauffähig. Sie erfüllt im wesentli¬ 
chen zwei Aufgaben. 

Zum einen wird eine Umkodierung der 
Adressen vorgenommen, so daß ein 
durchgehender RAM-Bereich ab Adresse 
OOOOH-DFFFH zur Verfügung steht (Bild 
1). Der wichtige Softswitchbereich ab 
$C000 kann unter CP/M mit den Adressen 
ab EOOOH angesprochen werden. Das be¬ 
nötigte RAM stellt die Language-Card 
Bank 2 bereit. Zum anderen wird der be¬ 
nötigte Mikroprozessor zur Verfügung ge¬ 
stellt. 


Eine Besonderheit des Apple-CP/M-Sy- 
stems ist die Zusammenarbeit des Z80 mit 
dem 6502, der als Slave-Prozessor dient, 
da über ihn alle Ein- und Ausgabe-Opera¬ 
tionen abgewickelt werden, die auf der 
Maschinenebene ablaufen. 


3. Die Zusammenarbeit zwischen 
Z80 und 6502 unter CP/M 

Bild 2 zeigt das Programm, welches die 
eigentliche Schnittstelle zwischen Z80 
und 6502 darstellt und von der CP/M- 
Diskette bei einem Kaltstart ab Adresse 
$03C0 (F3C0H) in den Speicher gebracht 
wird. Wichtig Ist noch die Speicherstelle 
$03DE. Sie enthält das höherwertige Byte 
der Slotadresse, in der die Z80-Karte In¬ 
stalliert ist z.B. E4H für Slot 4. Diese Spei- 
cherstelie und der entsprechende Ope¬ 
rand des STA-Befehls ab Adresse $03C6 
werden bei jedem Kaltstart Initialisiert. 
Daraus ergibt sich folgende prinzipielle 
Vorgehensweise bei der Aktivierung des 
6502-Prozessors, wenn der Z80 aktiv ist: 
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SWITCHDEMO.HEX 



:100100003E003224F’0212E117D3245F0?C3247F042 


:10011000213ADB22D0F32ADEF3773E03CD2201C35E 


:1001200000003D5782822A010016005F19E95A3803 


:10013000302D36353032205357495443482D4445ED 


:030140004D4F002000000000000000000000000000 


SWITCHDEMO 




; SWITCHDEMO 


0100 


ORG 0100H 


F047 - 

YREG 

EQU 0F047H 


F045 = 

AREG 

EQU 0F045H 


DB3A - 

STROUT 

EQU 0DB3AH 

;String Output 

F024 = 

HCURS 

EQU 0F024H 

;Horizontaler Cursor 

F3D0 = 

VEC 

EQU 0F3D0H 


F3DE - 

CPU 

EQU 0F3DEH 


0003 = 

CONIN 

EQU 00003H 


0000 - 

WBOOT 

EQU 00000H 


0100 3E00 


MVI A,0 


0102 3224F0 


STA HCURS 

;HTAB = 0 

0105 212E11 


LXI H,STRING+1000H 

;Adresse des Strings 

0108 7D 


MOV A,L 


0109 3245F0 


STA AREG 

;LSB —> A-Reg. 6502 

010C 7C 


MOV A,H 


010D 3247F0 


STA YREG 

;MSB —> Y-Reg, 6502 

0110 213ADB 


LXI H,STROUT 

;Up-Adresse übergeben 

0113 22D0F3 


SHLD VEC 


0116 2ADEF3 


LHLD CPU 

;Slotadr. holen 

0119 77 


MOV M.A 

;6502 aktivieren 

011A 3E03 


MVI A,CONIN 

;FKT-Nr. für CONIN 

011C CD2201 


CALL BIOS 

:durch BIOS ausführen 

011F C30000 


JMP WBOOT 



; Einsprungadresse 

der BIOS-Funktion berechnen und 


; Funktion ausführen 


0122 3D 

BIOS 

DCR A 


0123 57 


MOV D,A 


0124 82 


ADD D 


0125 82 


ADD D 


0126 2A0100 


LHLD WBOOT+1 


0129 1600 


MVI D,0 


012B 5F 


MOV E,A 


012C 19 


DAD D 


012D E9 


PCHL 


012E 5A38302D36STRING 

DB "Z80-6502 SWITCH- 

-DEMO" 

0142 00 


DB 00H 


0143 


END 



Zunächst muß die Adresse festgelegt wer¬ 
den, an dem der 6502 sein Unterpro¬ 
gramm ausführen soll. Dies geschieht da¬ 
durch, daß die gewünschte Adresse in die 
Speicherstellen $03D0, $03D1 geschrie¬ 
ben wird. Von Bedeutung ist auch hier die 
beschriebene Umkodierung der Adressen. 

Angenommen, wir wollen eine 6502-Rou- 
tine aus dem Apple-ROM aufrufen, z.B. 
PRERR mit der Adresse $FF2D, so kön¬ 
nen wir das mit folgender Z80-Befehlsse- 
quenz erreichen: 

LD HL,0FF2DH 
LD (0F3D0),HL 
LD HL.(0F3DEH) 

LD (HL),A 

Der erste Befehl lädt das HL-Register mit 
der Adresse des 6502-Unterprogramms, 
der zweite schreibt die 16-Bit-Adresse in 
die Speicherstellen $03D0, $03D1. Von 
Bedeutung ist hier, daß die Z80-Adresse 
F3D0H als Zieladresse angegeben wird, 
da sie der Adresse $03D0, $03D1 ent¬ 
spricht, wenn der 6502 aktiv ist (Bild 1). 

Der dritte Befehl holt die Adresse des 
Slots, in dem die Z80-Karte installiert ist. 
Auch hier ist die Umkodierung der Adres¬ 
sen zu berücksichtigen. 

Der Befehl lädt den Z80-Akkumuiator in 
die Slotadresse. Es kommt hierbei nur dar¬ 
auf an, daß die Slotadresse auf dem 
Adreßbus des Z80 anliegt und in die ange¬ 
gebene Adresse geschrieben wird. Wel¬ 
che Daten anliegen, ist unerheblich analog 
zu dem Betätigen eines Softswitches un¬ 
ter Kontrolle des 6502 (z.B. STA $C000). 
Der Z80 wird dadurch angehalten und der 
Adreß- und Datenbus für den 6502 freige¬ 
geben. Dessen Programmzähler wird mit 
der Adresse $0309 geladen, so daß er 
seine Arbeit an der Adresse $0309 auf¬ 
nimmt. 

An dieser Stelle werden in bekannter Wei¬ 
se zunächst das Apple-ROM lesefähig ge¬ 
macht und die CPU-Register geladen. Mit 
dem Befehl JSR $xxxx ab Adresse $03CF 
wird das eigentliche 6502-Unterprogramm 
aufgerufen. Die Adresse $xxxx ist vorher 
vom Z80 definiert worden. Nach der Rück¬ 
kehr wird das ROM auf jeden Fall wieder 
lesefähig gemacht und die 6502-Register 
werden gerettet. 

Mit dem Sprung nach $0300 wird die 
Rückkehr zum Z80 eingeleitet: Language- 
Oard Bank 2 schreib- und lesefähig ma¬ 
chen und mit „STA $OnOO“ den Z80 ak¬ 
tivieren. Der Z80 setzt die Arbeit mit dem 
nächsten Befehl nach „LD (HL),A“ fort. 
Stackpointer und sämtliche Registerinhal¬ 
te werden nicht verändert. 


Wenn wir das Programm SWITCHDEMO 
betrachten, stellen wir fest, daß eine einfa¬ 
che Parameterübergabe zwischen OP/M 
und 6502 möglich ist. Die Parameter kön¬ 
nen entweder direkt über die Zero-Page 
übergeben werden, wie dies durch die 
Übergabe der horizontalen Oursorposition 
demonstriert wird, oder durch „Poken“ in 
die 6502-Register-Save-Area, da die 
6502-Register bei jeder Aktivierung durch 
die Schnittstelle 6502-Z80 geladen 
werden. 

Nach dem Start des Programms SWITOH- 
DEMO erscheint auf dem Bildschirm der 
Text „Z80-6502 Switch-Demo“, der durch 
die Applesoft-Routine STROUT ausgege¬ 
ben wird. Danach erfolgt ein Rücksprung 
zu OP/M, von wo über die BIOS-Funktion 


OONIN auf einen Tastendruck gewartet 
wird, der einen OP/M-Warmstart auslöst. 

4. Apple Ile und CP/M 

Auch auf diesem Oomputer ist OP/M ge¬ 
nauso lauffähig wie auf einem Apple II. 
Unangenehm ist nur, daß nach einem OP/ 
M-Warmstart die Firmware der neuen 80- 
Zeichenkarte den gesamten Bildschirm 
löscht, und somit Informationen wie z.B 
Fehlermeldungen eines Oompilers, die für 
weitere Operationen benötigt werden, 
über den Bildschirm nicht zu verarbeiten 
sind. Ebenfalls wird die erweiterte 80-Zei- 
chenkarte (= 64K-Karte) nicht unterstützt, 
so daß man praktisch 64K Speicherraum 
„verschenkt“. 
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GETBIOS 

j GETBIOS 

; GETBIOS berechnet die Adresse einer BIOS-Funktion {1,..I6) 
; Die Nummer der Funktion wird im A-Register Übergeben. 

: Das HL-Register liefert die Adresse an das aufrufende 

zurück- 


0100 



ORG 0100H 


0000 

- 

WBOOT 

EQU 0000H 


0100 

3D 


OCR A 

: A = A - 1 

0101 

57 


MOV D,A 


0102 

82 


ADD D 

; A - A * 3 

0103 

82 


ADD D 


0104 

2A0100 


LHLD WBOOT+1 

: Warmstart-Vektor holen 

0107 

1600 


MVI D,0 


0109 

5F 


MOV E,A 

: Offset in das DE-Reg. 

010A 

19 


DAD D 

; Adresse — Offset + Warmboot 

010B 

C9 


RET 

; Zurück 

010C 



END 



GETBIOS.HEX 

;0C0100003D5?82822A0I00I6005F19C9D9 
:0000000000000000000000000000000000 


5. RAM-Disk für Apple Ile mit 
erweiterter 80-Zeichenkarte 

Der hier abgedruckte RAM-Disk-Driver ist 
für einen Apple Ile mit erweiterter 80-Zei- 
chenkarte mit zwei Diskettenlaufwerken 
unter Apple-CP/M 56K konfiguriert. 

Um die Wirkungsweise der RAM-Disk und 
deren Wechselwirkung mit den real exi¬ 
stierenden Laufwerken zu verdeutlichen, 
ist es erforderlich, auf die CP/M-Module 
BIOS und BDOS näher einzugehen. Auch 
kann dann das Programm an andere CP/ 
M-Versionen angepaßt werden, und der 
Leser ist in der Lage, sein eigenes Disket¬ 
tenformat zu implementieren. (Theoretisch 
läßt sich der RAM-Disk-Driver auch auf 
einem Apple llc mit CP/M-Karte imple¬ 
mentieren, doch wurde dies nicht ausge¬ 
testet.) 

5.1. Arbeitsweise des BIOS 

Dies ist, wie schon erwähnt, der hardware¬ 
abhängige Teil des Betriebssystems. Das 
BIOS kommuniziert mit BDOS oder mit 
einem Benutzerprogramm durch eine 
Sprungtabelle, wodurch 17 definierte 
Funktionen erreicht werden können (Bild 
2). Die Adresse, ab der diese Sprungta¬ 
belle im Hauptspeicher des Rechners 
steht, ist von der maximalen Speicherka¬ 
pazität abhängig. Wenn ein Anwenderpro¬ 
gramm BIOS-Funktionen aufrufen will, 
muß es die Adresse der Sprungtabelle im 
Speicher kennen, um über diese die 
Adresse der selektierten BIOS-Funktion 
zu ermitteln. Das Programm GETBIOS 
berechnet die Einsprungadresse der ge¬ 
wünschten BIOS-Funktion, indem es die 
Adresse des ersten Sprungvektors (Funk¬ 
tion WBOOT) ermittelt, die durch den In¬ 
halt der Speicherstellen 2 und 3 der Page 
0 gegeben ist. Daraus können dann die 
Einsprungadressen aller BIOS-Funktionen 
errechnet werden. 

Von den aufgeführten BIOS-Funktionen 
interessieren uns nur diejenigen, die mit 
den Diskettenoperationen in Verbindung 
stehen, insbesondere die Funktionen 9-14 
und 16, die im folgenden beschrieben 
werden. 

SELDSK 

Diese Funktion aktiviert das vom Benutzer 
spezifizierte Laufwerk. Als Parameter wird 
im C-Register die CP/M-Laufwerksnum- 
mer übergeben: 0=A, 1=B, ..., 15 = P. 
Konnte die Funktion erfolgreich ausgeführt 
werden, wird im HL-Register die Adresse 
des DPH („Disk Parameter Header“), auf 
dessen Bedeutung später eingegangen 
wird, zurückgegeben. Tritt ein Fehler auf. 


so enthält das HL-Register den Wert 
OOOOH. 

SETTRK 

Hiermit wird die Nummer der Spur ausge¬ 
wählt (BC-Register), auf die beim näch¬ 
sten Diskettenzugriff geschrieben oder 
von der gelesen werden soll. 

SETSEC 

Für alle folgenden Zugriffe auf das aktuelle 
Laufwerk wird die gewünschte Sektor¬ 
nummer (BC-Register) festgelegt. 

SETDMA 

Hier wird die Adresse eines 128-Byte- 
Puffers (BC-Register) übergeben. Alle fol¬ 
genden Leseoperationen von der aktuel¬ 
len Diskette schreiben in diesen Bereich, 
alle Schreiboperationen übertragen den 
Inhalt ab der selektierten Pufferadresse 
auf das aktuelle Laufwerk. 

READ 

Lesen eines gewählten Track/Sector von 
der aktuellen Diskette. Nach einem Lese¬ 
fehler enthält das A-Register den Wert 0, 
sonst 1. 

WRITE 

Schreiben eines gewählten Track/Sector 
aus dem Puffer aut das aktuelle Disketten¬ 
laufwerk. Es werden die gleichen Parame¬ 
ter wie bei READ zurückgegeben. 

SECTRAN 

Um die Geschwindigkeit des Diskettenzu¬ 
griffs zu erhöhen, kann ein logischer Sek¬ 


tor in einen physikalischen Sektor über¬ 
setzt werden. Standard-CP/M benutzt ei¬ 
nen „Interleaving-Faktor“ von sechs, d.h. 
nach zwei logisch aufeinanderfolgenden 
Sektoren werden sechs physikalische 
Sektoren übersprungen. Die SECTRAN- 
Funktion wird bei Apple-CP/M nicht be¬ 
nutzt, was bedeutet, daß keine physikali¬ 
schen Sektoren übersprungen werden 
sollen. 

Dem BIOS wird noch ein Satz von Tabel¬ 
len vorangestellt, die wichtige Parameter 
für die angeschlossenen Diskettenlauf¬ 
werke beinhalten. Für jedes Diskettenlauf¬ 
werk wird ein DPH (Disk Parameter Hea¬ 
der) angelegt, der 16 Bytes einnimmt. Der 
schematische Aufbau eines DPH ist in 
Bild 3 dargestellt. 

Die ersten 2 Bytes geben die Adresse 
eines Vektors für die Übersetzung von 
logischen in physikalische Sektoren für 
das Laufwerk an. Ist die Adresse OOOOH, 
so findet keine Übersetzung statt (Apple- 
CP/M). 

Die nächsten 6 Bytes sind für das BDOS 
reserviert und dienen als Scratchspace. 
Die 2 folgenden Bytes geben eine Adres¬ 
se an, die einen Arbeitsbereich von 128 
Bytes definiert, den das BDOS für Directo¬ 
ry-Operationen benötigt. Es wird für jedes 
Laufwerk der gleiche Directory-Puffer ver¬ 
wendet. 

Die 2 folgenden Bytes stellen ebenfalls 
einen Zeiger dar, der auf den sog. DPB 
(Disk Parameter Block) zeigt. Dieser Block 
enthält die eigentliche Diskettenbeschrei¬ 
bung. Laufwerke mit gleichen Eigenschaf¬ 
ten sollten denselben DPB benutzen. 
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Byte 12 und 13 geben die Adresse der 
Prüfsummentabelle an. Die ietzte 16-Bit- 
Zahi iiefert die Adresse des Diskettenbeie- 
gungsplans im Speicher, der ebenfaiis 
vom BDOS verwaltet wird. 

Apple-CP/M 56K legt 6 DPHs ab Adresse 
DA33H und 1 DPB ab Adresse DA93H an. 
Um den Aufbau des DPBs zuverstehen, 
betrachte man Bild 4. Hier ist der Aufbau 
eines DPBs dargestellt. 

SPT gibt die Anzahl der Spuren auf der 
Diskette an. BSH und BLM bestimmen 
zusammen die Blockgröße auf der Disket¬ 
te, wobei sich BSH berechnet zu 
log2 (Blockgröße/128). Die Blockgröße ist 
ein Vielfaches von 128, bei den Apple- 
Disketten 1024 Bytes. BLM ist die soge¬ 
nannte „ Blockmask“ die sich aus 21 (BSH- 
1) ergibt. EXM ist die Extensionsmaske 
und hängt von der Blockgröße ab. Der 
Wert von EXM kann aus Bild 6 bestimmt 
werden. DSM bestimmt die totale Spei¬ 
cherkapazität der Diskette, wobei 
(DSM-M) • Blockgröße die gesamte Ka¬ 
pazität der Diskette ohne Systemspuren 
ergibt. DRM legt die Anzahl der möglichen 
Directory-Einträge fest. Hier muß die ma¬ 
ximale Anzahl -1 eingetragen werden. 
CKS gibt die Größe des Directory-Prüf¬ 
vektors an: CKS = (DRM-k1) / 4. 

Auch das Directory selbst belegt Spei¬ 
cherplatz auf der Diskette. ALO und ALI 
geben die dafür reservierten Blöcke auf 
der Diskette an. Jeder Eintrag benötigt 32 
Bytes. Bei 48 möglichen Directory-Einträ¬ 
gen auf der Diskette ergeben sich 48 • 32 
= 1536 Bytes, was bei einer Blockgröße 
von 1024 Bytes zwei Blöcke in Anspruch 
nimmt. Diese Blöcke werden durch Set¬ 
zen eines Bits in ALO und ALI markiert, 
und zwar beginnend mit dem höherwerti¬ 
gen Bit von ALO. Somit erhalten wir bei 
den angenommenen Größen für ALO $C0 
und für ALI $00. 

Die letzten 2 Bytes, die mit OFF bezeich¬ 
net sind, enthalten die Anzahl der System¬ 
spuren. Apple-CP/M reserviert hier drei 
( 0 .. 2 ). 

5.2. CP/M-Patch 

Um eine RAM-Disk zu installieren, muß 
zunächst eine geeignete Stelle gefunden 
werden, um die RWTS-Routine zu linken. 
Soll ein bestimmter Track/Sector durch 
das BIOS gelesen oder geschrieben wer¬ 
den, wird zu einer 6502-Routine ab $0E03 
verzweigt. Dort kann dann ein Sprung zur 
eigenen RWTS erfolgen. Bevor jedoch die 
Routine ausgeführt werden kann, muß das 
BIOS mehrere erforderliche Parameter 
berechnen. 


1 XLT 

SCRATCH 

DIRBUF 1 

DPB 

CSV 1 

ALV 

2 Bytes 

Bild 3 

6 Bytes 

2 Bytes 

2 Bytes 

2 Bytes 

2 Bytes 



SPT 

BSH 

BLM 

EXM 1 DSM 

DRM 

ALO 

ALI 

CKS 

OFF 


Bild 4 



0 1 2 

0 

OBOO 1800 2800 

1 


2 


3 


14 

1600 

15 

17FF 


Bild 5 


^ 10 

11 

12 

13 

14 

15 

A800 

DOOO 

DOOO 

EOOO 

FOOD 

DOOO 

1 B600 




FEFF 


\ B7FF 

DFFF 

DFFF 

EFFF 

0300 

DFFF 


Bank 2 

Bank 1 



Bank 1 


oben 

oben 



unten 


Block¬ 

größe 

DSM 

<255 

DSM 

>255 

1024 

0 

- 

2048 

1 

0 

4096 

3 

1 

8192 

7 

3 

16384 

15 

7 


Die gewählte Laufwerksnummer wird in 
$03E4, der angesprochene Slot, in dem 
der zugeordnete Disk-Controller installiert 
ist, wird mit $10 multipliziert in $03E6 ab¬ 
gelegt. Die Adresse $03EB bestimmt, ob 
gelesen oder geschrieben werden soll, 
wobei 1 Schreiben und 2 Lesen bedeutet. 
Es wird immer auf 2 CP/M-Sektoren (2 * 
128 Bytes) auf einmal zugegriffen. Daraus 
folgt, daß der DMA-Puffer von 128 Bytes 
nicht sofort auf Diskette geschrieben wird, 
sondern erst der 256 Bytes große Disket¬ 
tensektor in einen weiteren Puffer ab 
$0800 gelesen wird. Erst danach kopiert 
CP/M den Inhalt des DMA-Puffers entwe¬ 
der in die erste oder zweite Hälfte des 
Zwischenpuffers. Wenn auf einen anderen 
Diskettensektor zugegriffen werden soll, 
wird der Zwischenpuffer bedingungslos 
auf Diskette gebracht. 

Die Spurnummer wird in $03E0, die Num¬ 
mer des Diskettensektors in $03E1 über¬ 
geben. 

Von Bedeutung sind das Errorflag 
($03EA), das angibt, ob die Diskettenope¬ 
ration fehlerfrei abgelaufen ist (0 = kein 
Fehler), und die Speicherstelle DEAEH, 
welche die Nummer des momentan unter 
CP/M aktiven Laufwerks angibt (A=0, 
B=1, C=2...). 


5.3. CP/M-RAM-Disk-Driver 

Der RAM-Disk-Driver besteht aus zwei 
Teilen. Der erste Teil befindet sich im 
AUXZP-Bereich auf der erweiterten 80- 
Zeichenkarte ab Adresse $FF00 und be¬ 
legt etwa eine Speicherseite. Die imaginä¬ 
ren Spuren der RAM-Disk (Bild 5) mit den 
Nummern 0-10 werden im Zusatzspeicher 
im AUXMAIN-47,5K-Bereich ab Adresse 
$0800~$B7FF abgebildet. Die Spuren 11 
und 12 entsprechen den beiden Banks der 
Language-Card ($D000-$DFFF) im 
AUXZP-Bereich des Zusatzspeichers. 
Spur 13 und 14 korrespondieren mit mit 
der gemeinsamen Bank der Language- 
Card im Zusatzspeicher ($E000-$FEFF). 
Spur 14, Diskettensektor 15 wird durch die 
Seite drei ($0300-$03FF) des AUXMAIN- 
47,5K-Bereichs repräsentiert. Der eigent¬ 
liche Driver kann vom AUXZP-Bereich des 
Zusatzspeichers Daten aus den imaginä¬ 
ren Spuren 0..14 sowohl in den Zwischen¬ 
puffer ab Adresse $0800 auf der Hauptpla¬ 
tine schreiben als auch vom Zwischenpuf¬ 
fer lesen und in den Zusatzspeicher brin¬ 
gen, da sich der Driver in jedem Fall selber 
lesen kann. 

Für die Spur 15 bleibt nur noch die Bank 1 
der Language-Card auf der Hauptplatine 
im Bereich $D000-$DFFF übrig, da nur 
Bank 2 von CP/M selbst benutzt wird. Um 
von dieser Spur in den Zwischenpuffer zu 
lesen, muß sich ein weiterer Driver im 
„ungebankten“ Bereich des Hauptspei¬ 
chers befinden. Der zweite Driver liegt ab 
FC70H (= $0C70) in einem von CP/M 
nicht benötigten Bereich. 
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5.4. Installation des RAM-Disk-Drivets 

Zunächst sind das Applesoft-Programm 

RAMDISK.INIT.DOS und die drei 6502- 
Programme AUXDRIVER, MOVEDRIVER 
und RAMDISK.FORMATTER zu er¬ 
stellen. 

MOVEDRIVER verschiebt lediglich den 
Objekt-Code, der ab Adresse $FF00 lauf¬ 
fähig sein muß, vom Hauptspeicher in den 
Zusatzspeicher. 

Der RAMDISK.FORMATTER initialisiert 
den gesamten Speicherbereich, den die 
RAM-Disk verwendet, mit dem Wert $E5. 
Als viertes Modul muß noch das Pro¬ 
gramm RDSKINIT.COM auf der CP/M- 
Diskette vorhanden sein. Es ist in 8080- 
Assembler geschrieben, da kein Z80-As- 
sembler zur Verfügung stand. 
RDSKINIT.COM patcht das CP/M an der 
Stelle $0E03. Hier wird ein Sprung zur 
eigenen RWTS-Routine installiert. Des 
weiteren muß die Anzahl der angeschlos¬ 
senen Diskettenlaufwerke erhöht werden, 
indem in den Speicherplatz $03B8 eine 3 
eingetragen wird, so daß die RAM-Disk 
unter Laufwerk „C“ angesprochen wer¬ 
den kann. Außerdem wird ein neuer DPB 
für die RAM-Disk initialisiert und die 
Adresse in den DPH eingetragen. Bleibt 
nur noch das „Poken“ des Drivers im 
Hauptspeicher ab Adresse $0C70. Der 
Driver prüft zuerst, ob^das angeschlosse¬ 
ne Laufwerk die RAM-Disk ist. Wenn ja, 
wird der ALTZPAUX-Bereich selektiert 
und die Language-Card schreib- und lese¬ 
fähig gemacht und zum Driver im Zusatz¬ 
speicher gesprungen. Die Rückkehr er¬ 
folgt entweder über RTSDRIVER, wenn 
auf die Spuren 0...14 zugegriffen wurde, 
oder durch einen Sprung nach DRIVER2 
vom Driver im Zusatzspeicher (Zugriff auf 
Spur 15). Alle Transferparameter, die AC¬ 
CESS 2 benötigt, sind bereits errechnet, 
müssen jedoch vorher von der AUX-Zero- 
Page in die MAIN-Zero-Page kopiert wer¬ 
den. Am Ende wird das RWTS-Errorflag 
auf 0 gesetzt, so daß kein BDOS-Error 
auftreten kann. Der Return zum Z80 wird 
über die oben beschriebene Schnittstelle 
ausgeführt. 

Wurde ein physisch existierendes Disket¬ 
tenlaufwerk angesprochen, wird die nor¬ 
male RWTS-Routine ab Adresse $0E10 
aufgerufen und zum Z80 zurückgekehrt. 


5.5 Starten des RAM-Disk-Drivers 

Der RAM-Disk-Driver wird von DOS 3.3 
aus gestartet. Booten Sie DOS und starten 
das Programm RAMDISK.INIT.DOS. Da¬ 
nach können Sie wie gewohnt CP/M boo- 


RDSKINIT 


m RDSKINIT 

Installiert CP/M--Patch für RAM-Disk 


0100 

FC70 = 

F3B8 - 
FE03 = 

PATCHADR 

DISKNR 

RWTSPATCH 

ORG 0100H 

EQU 0FC70H 

EQU 0F3B8H 

EQÖ 0FE03H 

;Hier CP/M-Patch installieren 
;Anzahl der installierten Laufwerke 

DA83 = 

DA5D - 

DPH 

DPHPATCH 

EQU 0DA83H 

EQU 0DA5DH 



; Andern 

des DPB-Zeigers 

im DPH für Disk C 

0100 2183DA 
0103 225DDA 


LXI H,DPH 

SHLD DPHPATCH 



Neuen DPB für RAM-Disk "C" initialisieren 


0106 1183DA 


LXI D,DPH 



0109 019E01 


LXI B,DPB 



010C 260F 


MVI H,15 



010E rc 

TRANSFER 

MOV A,H 



010F B7 


ORA A 



0110 CA1B01 


JZ FERTIG 



0113 25 


DCR H 



0114 0A 


LDAX B 



0115 12 


STAX D 



0116 03 


INX B 



0117 13 


INX D 



0118 C30E01 


JMP TRANSFER 



011B 1103FE 

FERTIG 

LXI D,RWTSPATCH 



01lE 3E4C 


MVI A,004CH ; JMP START 


0120 12 


STAX D 



0121 13 


INX D 



0122 3E70 


MVI A,0070H 



0124 12 


STAX D 



0125 13 


INX D 



0126 3E0C 


MVI A,000CH 



0128 12 


STAX D 



0129 11B8F3 

* 

LXI D.DISKNR 



012C 3E03 


MVI A,03 ; 3 

Laufwerke A, 

B, C 

012E 12 


STAX D 



012F 1170FC 


LXI D.PATCHADR 



0132 014401 


LXI B,0PC0DE 



0135 2659 


MVI H.ENDOP-OPCODE 



0137 7C 

NEXT 

MOV A.H 



0138 B7 


ORA A 



0139 CA0000 


JZ 0000 



013C 25 


DCR H 



013D 0A 


LDAX ß 



013E 12 


STAX D 



013F 03 


INX B 



0140 13 


INX D 



0141 C33701 


JMP NEXT 



0144 AD83C0 

Op com 

DB 0ADH,83H,0C0H 


LDA $C083 

0147 ADAEFE 


DB 0ADH,0AEH,0FEH 


LDA TMPDSK 

014A C902 


DB 0C9H,02H 


CMP +02 

014C F00A 


DB 0F0H,0AH 


BEQ RAMDISK 

014E 08 


DB 08H 


PHP 

014F 78 


DB 78H 


SEI 

0150 20100E 


DB 20H,10H,0EH 


JSR RWTS 

0153 AD81C0 


DB 0ADH,81H,0C0H 


LDA $C081 

0156 28 


DB 28H 


PLP 

0157 60 


DB 60H 


RTS 

0158 8D09C0 


DB 8DH,09H,0C0H 

RAMDISK 

STA ALTZPAUX 

015B AD83C0 


DB 0ADH,83H,0C0H 


LDA $C083 

015E AD83C0 


DB 0ADH,83H,0C0H 


LDA $C083 

0161 4C00FF 


DB 4CH,00H,0FFH 


JMP DRIVER 

0164 8D08C0 


DB 8DH,08H,0C0H 

RTSDRIVER 

STA ALTZPMAIN 

0167 AD81C0 


DB 0ADH.81H,0C0H 


LDA $C081 

016A 60 


DB 60H 


RTS 

0168 A5CE 


DB 0A5H,0CEH 

DRIVER2 

LDA INDl 

016D A6CF 


DB 0A6H,0CFH 


LDX INDl+1 

016F A406 


DB 0A4H,06 


LDY IND2 

0171 8CC80C 


DB 08CH.0C8H,00CH 


STY TMP 

0174 A407 


DB 0A4H,07 


LDY IND2+1 

0176 8D08C0 


DB 08DH,08,0C0H 


STA ALTZPMAIN 

0179 85CE 


DB 085H,0CEH 


STA INDl 

017B 86CF 


DB 086H,0CFH 


STX INDl+1 

017D 8407 


DB 084H,07 


STY IND2+1 

017F ADC80C 


DB 0ADH,0C8H,0CH 


LDA TMP 

0182 8506 


DB 085H,06 


STA IND2 

0184 AD8BC0 


DB 0ADH,8BH,0C0H 


LDA $C08B 


60 
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ten und RDSKINIT.COM starten, wenn Sie 
die RAM-DISK aktivieren wollen. 

Der Driver im Hauptspeicher wird bei ei¬ 
nem CP/M-Warmstart nicht zerstört. Des¬ 
halb muß das Programm RDSKINIT.COM 
nur nach einem Kaltstart wieder gestartet 
werden. Alle Daten auf der RAM-Disk und 
der Driver im Zusatzspeicher bleiben er¬ 
halten, bis Sie den Rechner ausschalten. 

5.6 Anpassen des RAM-Disk-Drivers an 
andere CP/M-Versionen 

Der RAM-Disk-Driver ist für Apple-CP/M 
Version 2.20 56K mit zwei Diskettenlauf¬ 
werken konfiguriert. Wenn mehr als zwei 
Laufwerke angeschlossen sind, muß der 
Wert in Speicherstelle F3B8H entspre¬ 
chend geändert und der Zeiger auf den 
DPB im der RAM-Disk zugeordneten DPH 
angepaßt werden. 

Der DPB für die RAM-Disk ist so intiali- 
siert, daß 32 Directory-Einträge möglich 
sind. Daraus ergibt sich eine Netto-Spei- 
cherkapazität von 63K (keine Systemspu¬ 
ren). Der Benutzer kann in den DPB ande¬ 
re Parameter eintragen, um das Pseudo- 
Laufwerk seinen eigenen Bedürfnissen 
anzupassen. 

5.7. Zusammenfassung 

Die Peeker-Sammeldiskette enthält fol¬ 
gende RAM-Disk-Programme: 

- RAMDISK.INIT.DOS (Basic) 
-T.AUXDRIVER (Source) 

- AUXDRIVER (6502) 

-T.MOVEDRIVER (Source) 

- MOVEDRIVER (6502) 
-T.RAMDISK.FORMATTER (Source) 
-RAMDISK.FORMATTER (6502) 

Das Z80-Programm RDSKINIT.COM so¬ 
wie die Demos SWITCHDEMO und GET- 
BIOS befinden sich nicht auf der Sammel¬ 
disk. 

Die RAM-Disk läßt sich wie folgt instal¬ 
lieren: 

1. Booten von DOS 3.3 

2. Von Peeker-Sammeldisk mit 
RUN RAMDISK.INIT.DOS Return 
Driver auf 64K-Karte schieben. 

3. Booten von CP/M 

4. Mit RDSKINIT Return 
Driver anschließen. 

5. Danach RAM-Disk mit 
C: Return 
ansprechen. 



0187 AD8BC0 


DB 0ADH,8BH,0C0H 


LDA $C0SB 

018A A000 


DB 0A0H,00 

ACCESS2 

LDY 40 

018C BICE 


DB 0B1H,0CEH 

NEXT 

LDA (IND1),Y 

018E 9106 


DB 091H,06 


STA (IND2),Y 

0190 88 


DB 088H 


DEY 

0191 D0F9 


DB 0D0H,0F9H 


BNE NEXT 

0193 A900 


DB 0A9H,00 


LDA #0 

0195 8DEA03 


DB 08DH,0EAH,03H 


STA ERFL 

0198 AD81C0 


DB 0ADH,081H,0C0H 


LDA $0081 

019B 60 


DB 060H 


RTS 

019C 00 


DB 00 

TMP 

DB 00 

019D FF 

ENDOP 

DB 0FFH 



019E 2000 

DPB 

DB 20H,00 

Sektoren 

pro Spur 

01A0 0307 


DB 03,07 

BSH/BLM 


01A2 00 


DB 00 

EXM 


01A3 3F00 


DB 3FH,00 

DSM 


01A5 1F00 


DB 1FH,00 

DRM 


01A7 80 


DB 80H 

AL0 


01A8 00 


DB 00 

ALI 


01A9 0000 


DB 00,00 

CKS 


01AB 0000 


DB 00,00 

OFF 


01AD 


END 




RDSKINIT.HEX 


10010000 

10011000 

10012000 

10013000 

10014000 

10015000 

10016000 

10017000 

10018000 

10019000 

0D01A000 


2183DA225DDA1183DA019E01260F7CB7A2 

CA1B01250A120313C30E011103FE3E4C34 

12133E7012133E0C1211B8F33E0312115B 

70FC01440126597CB7CA0000250A12034D 

13C33701ADS3C0ADAEFEC902F00A087813 

20100EAD81C028608D09C0AD83C0AD8375 

C04C00FF8D08C0AD81C060A5CEA6CFA455 

068CC80CA4078D08C085CE86CF8407AD39 

C80C8506AD8BC0AD8BC0A000B1CE91066A 

88D0F9A9008DEA03AD81C06000FF20007E 

0307003F001F008000000000006A000000 


Hinweis zum Ersteilen der 8080- 
Assembierprogramme unter CP/M 

Dieser Hinweis ist für diejenigen Leser ge¬ 
dacht, die nicht mit den abgedruckten 
8080-Quelltexten in Verbindung mit dem 
CP/M-Assembler arbeiten möchten. Die 
Programme können direkt mit dem DDT 
(Dynamic Debbuging Tool) als Hexdump 
eingegeben werden. Starten Sie von Ihrer 
CP/M-Diskette des DDT (DDT und Return 
eingeben). Es meldet sich mit 
DDT VERS 2.2 

Danach geben Sie „S0100“ ein. Es folgt 
die Meldung „0100 01 “. Hierbei bedeutet 
„0100“ die momentan angesprochene 
Speicherstelle und „01“ deren Inhalt. 
Jetzt kann der entsprechende Hexdump - 
jeweils ein Byte, gefolgt von der Return- 
Taste - eingegeben werden. 

Der „S-Modus“ wird nach abgeschlosse¬ 
ner Eingabe des Hexdumps mit „.“ been¬ 
det. Verlassen Sie den DDT mit Control-C. 
Nun muß das erstellte Programm noch ab¬ 
gespeichert werden. Dazu tippen Sie 
„SAVE 1 Name.COM“. 
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RAMDISK.INIT.DOS 





100 REM RAMDISK 

,INIT.DOS 




110 HOME 

:D$ = 

CHR$ 

(4) 




120 PRINT "CP/M-RAMDISK-DRIVER WIRD INSTALLIERT 

130 PRINT D$"BLOAD AUXDRIVER,A$9000” 

140 PRINT D$"BRUN MOVEDRIVER,A$9500’' 

150 PRINT D$"BRUN RAMDISK.FORMATTER,A$9000" 


AUXDRIVER 








1 




2 

* 



* 



3 

* AUXDRIVER 


* 



4 

* AUXZP- 

-Bereich $FF00 

* 



5 

* 






6 




7 

* 






8 


ORG 

$FF00 




9 

* 






10 

BANK 2 

EQU 

$0083 




11 

BANKl 

EQU 

$C08B 




12 

RAMRDA 

EQU 

$0003 




13 

RAMRDM 

EQU 

$0002 




14 

RMWRTA 

EQU 

$0005 




15 

RMWRTM 

EQU 

$0004 




16 

* 






17 

RW 

EQU 

$03EB 




18 

BUFF 

EQU 

$0800 




19 

ERFL 

EQU 

$03EA 




20 

TRACK 

EQU 

$03E0 




21 

SECTOR 

EQU 

$03E1 




22 

* 






23 

INDl 

EQU 

$CE 




24 

IND2 

EQU 

$06 




25 

* 




FF00; A9 

00 

26 

START 

LDA 

+00 


FF02: 85 

CE 

27 


STA 

INDl 


FF04: 85 

06 

28 


STA 

IND2 


FF06: AD 

E0 03 

29 


LDA 

TRACK 




30 

* 






31 

* Spurnummer 

in AUXZP ablegen 



32 

* 




FF09: 8D 

E3 FF 

33 


STA 

STRACK 




34 

* 






35 

* Adresse im Speicher berechnen 



36 

* 




FF0C: 20 

68 FF 

37 


JSR 

CALCADR 


FF0F: AD 

00 FF 

38 


LDA 

ADR+1 




39 

* 






40 

* Kein Fehler 

aufgetreten 




41 

* 




FF12: D0 

06 

42 


BNE 

OKAY 


FF14: 8E 

EA 03 

43 


STX 

ERFL 


FF17: 4C 

4F FF 

44 


JMP 

RETURNF 

;Fehler! 

FFIA: 48 


45 

OKAY 

PHA 



FFIB: 20 

01 FF 

46 


JSR 

SELECT 

;LC-Bank 

FFIE; AD 

EB 03 

47 


LDA 

RW 

;R/W? 

FF21: 6A 


48 


ROR 

A 


FF22: B0 

34 

49 


BGS 

TOBUFF 

; Read 

FF24: 68 


50 


PLA 


;Adreßbyte 

FF25: 8D 

02 00 

51 


STA 

RAMRDM 

;RDMAIN 

FF28; 8D 

05 00 

52 


STA 

RMWRTA 

;WRAUX 

FF2B; 85 

07 

53 


STA 

IND2-I-1 

;Adreßbyte 

FF2D: A9 

08 

54 


LDA 

#>BUFF 

;Pufferadresse 

FF2F: 85 

CF 

55 


STA 

INDl+1 




56 





FF31; A0 

00 

57 

ACCESS 

LDY 

#0 

256 Bytes 

FF33; AD 

E3 FF 

58 


LDA 

STRACK 


FF36; 09 

0F 

59 


CMP 

+15 

Spur 15? 

FF38: D0 

09 

60 


BNE 

NEXT 

nein 

FF3A: 8D 

02 00 

61 


STA 

RAMRDM 

RDMAIN 

FF3D: 8D 

04 00 

62 


STA 

RMWRTM 

WRMAIN 

FF40: 4C 

97 00 

63 


JMP 

DRIVER2 

Kopieren 

FF43: Bl 

CE 

64 

NEXT 

LDA 

(INDl),Y 


FF45: 91 

06 

65 


STA 

(IND2),Y 


FF47: 88 


66 


DEY 



FF48: D0 

F9 

67 


BNE 

NEXT 

.■fertig? 



68 







69 

* Normaler Return 




70 





FF4A: A9 

00 

71 


LDA 

+00 


FF4C: 8D 

EA 03 

72 


STA 

ERFL 

CP/M-Fehler 

FF4F: 8D 

02 00 

73 

RETURNF 

STA 

RAMRDM 

RDMAIN 

FF52: 8D 

04 00 

74 


STA 

RMWRTM 

WRMAIN 

FF55: 4C 

90 00 

75 


JMP 

RTSDRIV 

zurück 



76 






FF58 

: 68 

77 

TOBUFF 

PLA 


;Adreßbyte 

FF59 

: 8D 03 00 

78 


STA 

RAMRDA 

;RDAUX 

FF5C 

: 8D 04 00 

79 


STA 

RMWRTM 

;WRMAIN 

FF5F 

: 85 CF 

80 


STA 

INDl+1 

;Adreßbyte 

FF61 

: A9 08 

81 


LDA 

+>BUFF 

;Pufferadresse 

FF63 

; 85 07 

82 


STA 

IND2+1 

;für Kopieren 

FF65: 40 31 FF 

83 


JMP 

ACCESS 

;Kopieren 



84 

* 






85 

* CALCADR berechnet die Speicher-Page, 



86 

* die dem Track/Sector entspricht, 



87 

* 




FF68 

: A2 01 

88 

CALCADR 

LDX 

+1 


FF6A 

; A9 00 

89 


LDA 

+0 


FF6C 

; 8D BF FF 

90 


STA 

ADR 

;LSB immer 0 



91 

* 




FF6F 

: AD E0 03 

92 


LDA 

TRACK 


FF72 

: 09 0B 

93 


CMP 

+11 


FF74 

: 10 0E 

94 


BPL 

LABl 


FF76 

: 0A 

95 


ASL 



FF77 

: 0A 

96 


ASL 



FF78 

: 0A 

97 


ASL 



FF79 

: 0A 

98 


ASL 



FF7A 

; 09 08 

99 


ORA 

#08 


FF7C 

: 18 

100 

EXITl 

CLO 



FF7D 

; 6D El 03 

101 


ADO 

SECTOR 


FF80 

: 8D 00 FF 

102 

EXIT2 

STA 

ADR+1 


FF83 

: 60 

103 


RTS 





104 

* 




FF84 

: 09 0F 

105 

LABl 

CMP 

+15 


FF86 

: F0 10 

106 


BEQ 

TR15 


FF88 

: 09 0E 

107 


CMP 

+14 


FF8A 

: F0 19 

108 


BEQ 

TR14 


FF8C 

: 09 0D 

109 


CMP 

#13 


FF8E 

: F0 10 

110 


BEQ 

TRI 3 


FF90 

: 09 00 

111 


CMP 

+12 


FF92 

: F0 07 

112 


BEQ 

TR12 


FF94 

; 09 0B 

113 


CMP 

#11 


FF96 

: D0 lE 

114 


BNE 

ERRl 

;unzulässig 

FF98 

: 8E BF FF 

115 

TR15 

STX 

ADR 

;Bankl merken 

FF9B 

: A9 D0 

116 

TR12 

LDA 

+$D0 


FF9D 

: 40 70 FF 

117 


JMP 

EXITl 


FFA0 

: A9 E0 

118 

TR13 

LDA 

+$E0 


FFA2 

: 40 70 FF 

119 


JMP 

EXITl 


FFA5 

: AD El 03 

120 

TR14 

LDA 

SECTOR 


FFA8 

: 09 0F 

121 


CMP 

+$0F 


FFAA 

: D0 05 

122 


BNE 

LAB2 


FFAC 

; A9 03 

123 


LDA 

#$03 


FFAE 

; 40 80 FF 

124 


JMP 

EXIT2 


FFBl 

: A9 F0 

125 

LAB2 

LDA 

+$F0 


FFB3 

: 40 70 FF 

126 


JMP 

EXITl 




127 





FFB6 

A9 00 

128 

ERRl 

LDA 

+00 

;Fehler 

FFB8 

8D BF FF 

129 


STA 

ADR 


FFBB 

8D 00 FF 

130 


STA 

ADR+1 

;Adresse=0 

FFBE 

60 

131 


RTS 


;zurück 



132 





FFBF 

: 00 

133 

ADR 

HEX 

00 


FFC0 

: 00 

134 


HEX 

00 




135 







136 

* Select 

setzt Softswitch 

für 



137 

* Banking der Language-Card 



138 





FFCl 

: AD 00 FF 

139 

SELECT 

LDA 

ADR+1 


FFC4 

: 29 F0 

140 


AND 

*%11110000 


FFC6 

; 09 D0 

141 


CMP 

*$D0 


FFC8 

: F0 01 

142 


BEQ 

LCCARD 


FFCA 

: 60 

143 


RTS 





144 





FFCB 

: AD BF FF 

145 

LCCARD 

LDA 

ADR 


FFCE 

: F0 00 

146 


BEQ 

LBK2 


FFD0 

: A9 00 

147 


LDA 

+00 


FFD2 

: 8D BF FF 

148 


STA 

ADR 

:Bankl-Flag 

FFD5 

: AD 8B 00 

149 


LDA 

BANKl 

;R/W Bankl 

FFD8 

: AD 8B 00 

150 


LDA 

BANKl 


FFDB: 

: 60 

151 


RTS 





152 

* 




FFDC 

AD 83 00 

153 

LBK2 

LDA 

BANK2 

;R/W Bank2 

FFDF 

AD 83 00 

154 


LDA 

BANK2 


FFE2 

60 

155 


RTS 





156 

* 






157 

RTSDRIV 

EQU 

$0090 




158 

DRIVER2 

EQU 

$0097 


FFE3: 

: 00 

159 

STRACK 

HEX 

00 


228 Bytes 







62 
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MOVEDRIVER 






1 

2 

* 



* 





3 

# MOVEDRIVER 

AUX $FF00 






4 









5 









6 









7 


ORG 

$9500 






8 









9 

START 

EQU 

$00 






10 

ZIEL 

EQU 

$02 






11 

ALTZP 

EQU 

$C008 






12 





9500 

8D 

09 

C0 

13 


STA 

ALTZP+1 

;AUXZP 

9503 

A9 

00 


14 


LDA 

^<SADR 


9505 

85 

00 


15 


STA 

START 


9507 

A9 

90 


16 


LDA 

+>SADR 


9509 

85 

01 


17 


STA 

START+1 


95 0B 

A9 

00 


18 


LDA 

4<DADR 


95 0D 

85 

02 


19 


STA 

ZIEL 


950F 

A9 

FF 


20 


LDA 

4>DADR 


9511 

85 

03 


21 


STA 

ZIEL+1 






22 





9515: 

: AD 

8B 

C0 

23 


LDA 

$C08B 

;Bankl R/W 

9516: 

: AD 

8B 

C0 

24 


LDA 

$C08B 


9519: 

AE 

33 

95 

25 


LDX 

BLKS 


951C: 

A0 

00 


26 


LDY 

#0 

;256 Bytes 

951E: 

Bl 

00 


27 

NEXT 

LDA 

(START).7 


9520: 

91 

02 


28 


STA 

(ZIEL),Y 


9522 : 

88 



29 


DEY 



9523 : 

D0 

F9 


30 


BNE 

NEXT 


9525: 

E6 

01 


31 


INC 

START+1 


9527: 

E6 

03 


32 


INC 

ZIEL+1 


9529: 

CA 



33 


DEX 



95 2A: 

D0 

F2 


34 


BNE 

NEXT 


952C: 

8D 

08 

C0 

36 


STA 

ALTZP 

;MAINZP 

952F: 

AD 

81 

C0 

36 


LDA 

$C081 

;Read ROM 

9532: 

60 



37 


RTS 







38 









39 

SADR 

EQU 

$9000 






40 

DADR 

EQU 

$FF00 


9533 : 

01 



41 

BLKS 

HEX 

01 



52 Bytes 


RAMDISK.FORMATTER 

1 •»•**«*«**•<«••*••••••»•••«• 

2 ^ # 

3 RAMDISK.FORMATTER * 

4 * ^ 

5 0300-03FF ^ 

6 ^ 0800-BFFF ^ 

1 * D000-DFFF *2 * 

8 ^ D000-DFFF MAIN * 

9 * E000-FEFF ^ 





10 







11 







12 

+ 






13 

BANK2 

EQU 

$C083 




14 

BANKl 

EQU 

$C08B 




15 

ALTZPM 

EQU 

$0008 




16 

ALTZPA 

EQU 

$C009 




17 

RMWRTA 

EQU 

$C005 




18 

RMWRTM 

EQU 

$C004 




19 

DADR 

EQU 

$CE 




20 

* 






21 


ORG 

$9000 




22 


OBJ 

$9000 




23 

* 






24 

^AUXMAIN 

— 0800-BFFF 




25 




9000: 8D 

05 

C0 

26 


STA 

RMWRTA 

9003: A9 

08 


27 


LDA 

+08 

9005: 85 

CF 


28 


STA 

DADR+1 

9007: A9 

00 


29 


LDA 

+00 

9009: 85 

CE 


30 


STA 

DADR 

900B: A2 

B8 


31 


LDX 

+184 

900D; 20 

66 

90 

32 


JSR 

INIT 




33 







34 

^AUXMAIN 

— 0300-03FF 




35 





9010 

A9 

03 


36 


LDA 

+03 

9012 

85 

CF 


37 


STA 

DADR+1 

9014 

A9 

00 


38 


LDA 

+00 

9016 

85 

CE 


39 


STA 

DADR 

9018 

A2 

01 


40 


LDX 

#1 

901A 

20 

66 

90 

41 


JSR 

INIT 





42 








43 

^sLC-BANKl — 

D000-DFFF/MAIN 





44 




901D 

AD 

8B 

C0 

45 


LDA 

BANKl 

9020 

AD 

8B 

C0 

46 


LDA 

BANKl 

9023 

A9 

D0 


47 


LDA 

+$D0 

9025 

85 

CF 


48 


STA 

DADR+1 

9027 

A9 

00 


49 


LDA 

+00 

9029 

85 

CE 


50 


STA 

DADR 

902B 

A2 

10 


51 


LDX 

+16 

902D 

20 

66 

90 

52 


JSR 

INIT 





53 








54 

*LC-BANK1,2 - 

D000-DFFF/AUX 





55 

* 



9030 

: AD 

8B 

C0 

56 


LDA 

BANKl 

9033: 

: AD 

8B 

C0 

57 


LDA 

BANKl 

9036: 

: 20 

3F 

90 

58 


JSR 

INITB 

9039 

: AD 

83 

C0 

59 


LDA 

BANK2 

903C 

: AD 

83 

C0 

60 


LDA 

BANK2 

903F 

: 8D 

09 

C0 

61 

INITB 

STA 

ALTZPA 

9042 

: A9 

D0 


62 


LDA 

+$D0 

9044 

: 85 

CF 


63 


STA 

DADR+1 

9046 

: A9 

00 


64 


LDA 

+$00 

9048 

: 85 

CE 


65 


STA 

DADR 

904A 

: A2 

10 


66 


LDX 

+ 16 

904C 

: 20 

66 

90 

67 


JSR 

INIT 





68 

+ 







69 

^COMMON 

I LC — 

- E000-FEFF 





70 

* 



904F 

A9 

E0 


71 


LDA 

+$E0 

9051 

85 

CF 


72 


STA 

DADR+1 

9053 

A9 

00 


73 


LDA 

+$00 

9055 

85 

CE 


74 


STA 

DADR 

9057 

A2 

IF 


75 


LDX 

+31 1 

9059 

20 

66 

90 

76 


JSR 

INIT 

905C 

8D 

04 

C0 

77 


STA 

RMWRTM 

905F 

AD 

81 

C0 

78 


LDA 

$C081 ;Read ROM 

9062 

8D 

08 

C0 

79 


STA 

ALTZPM 

9065 

60 



80 


RTS 






81 








82 

* Init 

mit $E5, Anzahl der 256-Byte-Blöcke 





83 

* im X- 

■Register 





84 




9066 

A0 

00 


85 

INIT 

LDY 

+0 

9068 

A9 

E5 


86 


LDA 

+$E5 

906A 

91 

CE 


87 

NEXT 

STA 

(DADR),Y 

906C 

88 



88 


DEY 


906D 

D0 

FB 


89 


BNE 

NEXT 

906F 

E6 

CF 


90 


INC 

DADR+1 

9071 

CA 



91 


DEX 


9072 

D0 

F6 


92 


BNE 

NEXT 

9074 

60 



93 


RTS 

0 









117 Bytes 





i 
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■ 

□□□ 

□□□ 

■ 


von Stefan Maas 



SOLITAIRE 

und wie man es löst 


Solitaire ist ein Spiel, bei dem es darum 
geht, durch Überspringen von Steinen mit 
anderen Steinen das Spielfeld bis auf ei¬ 
nen zu leeren. Dazu ist anfängiich die mitt¬ 
lere Position auf dem Spielfeld unbesetzt. 
Ein Stein darf nur springen, wenn direkt 
iinks, rechts, über oder unter ihm ein Stein 
steht und die übernächste Position in die¬ 
ser Richtung unbesetzt ist. Der Stein 
springt dann auf den freien Platz, wobei 
der übersprungene Stein entfernt wird. 
Nach einigen Spieizügen können die ver¬ 
bleibenden Steine so weit entfernt-sein, 
daß sie sich nicht mehr überspringen kön¬ 
nen. Genau hier liegt die Schwierigkeit 
von Solitaire. 

Das vorliegende Programm SOLITAIRE 
versucht dafür eine Lösung zu finden. Sy¬ 
stematisch führt es mögliche Sprünge in 
der Reihenfolge links, oben, rechts oder 
unten aus. Gerät es dabei in eine Sack¬ 
gasse, so macht es den letzten Zug rück¬ 
gängig und versucht eine andere Möglich¬ 
keit. Häit man diese Systematik ein, kann 
man sicher sein, einen erfoigreichen 
Spielverlauf zu berechnen. Diese Vorge¬ 
hensweise des systematischen Program- 
mierens wurde in CHIP Special II als 
„Backtracking“ beschrieben, wobei Pro¬ 
gramme für 6800 und den TRS 80 vorge- 
stelit wurden. 

Auf der Suche nach der Lösung des Soli- 
taire-Probiems ist der einzelne Suchschritt 


relativ einfach (Die Zeilenzahlen beziehen 
sich auf das Applesoft-Programm SOLI¬ 
TAIRE): 

- Nach der Festlegung der Grundstellung 
(Zeile 160-165) beginnt jeder Versuch 
beim ersten Stein unten links auf dem 
Spielbrett. Es werden die Sprungmöglich¬ 
keiten in der Reihenfolge links, oben, 
rechts oder unten geprüft und ausgewertet 
(Zeile 205-335), gegebenenfalls auch 
ausgeführt (Zeile 355-420). 

- Gibt es keine weiteren Zugmöglichkei¬ 
ten mehr und ist nicht genau ein Stein im 
Zentrum des Spielfeldes stehengeblieben, 
so ist das Spiel in eine Sackgasse geraten. 
Der letzte Zug wird nun rückgängig ge¬ 
macht (Zeile 440-460) und nach anderen 
Zugmöglichkeiten gesucht. 

- Die Lösung ist gefunden worden: Ein 
Stein ist genau im Zentrum des Spielfel¬ 
des stehengeblieben. (Zeile 405-410: Es 
sind X = 31 Züge gemacht worden und 
der letzte Spielstein besetzt das zentrale 
Spielfeld A(60) = 1.) 

Die Ausgabe der Lösung erfolgt nun ent¬ 
weder über den Drucker (angepaßt an den 
Drucker Epson MX-82F/T Typ III; anson¬ 
sten sind in den Zeilen 610-800 kleine 
Modifikationen notwendig) oder aber über 
den Bildschirm (Zeile 560-590). 

Für die Grafik sorgen die Routinen in den 
Zeilen 480-555. 


Da das Programm in Applesoft für die Lö¬ 
sung 14 Std. und etwa 35 Min. benötigt, 
besteht die Möglichkeit der Spielstandab¬ 
speicherung (Zeile 400, 820-825), die mit 
Ctrl-Q aufgerufen wird. Die Zahlenwerte 
der einzelnen Brettpositionen können der 
Tabelle 1 entnommen werden. 

Zusätzlich ist auch noch die Assem¬ 
blerroutine SOLITAIRE.B eingebaut (Auf¬ 
ruf in Zeile 945-960), welche die Lösung 
in 41 Sekunden findet (eine Spielstandab¬ 
speicherung ist hierbei nicht möglich) und 
vom Menü des Applesoft-Programms aus 
gestartet werden kann. Die Arbeitsweise 
des Binär-Programms ist mit der des Ba- 
sic-Programms identisch. 

Zusatzinformation: Vor der Eingabe und 
dem späteren Aufruf des Applesoft-Pro¬ 
gramms sollte man die folgenden Parame¬ 
ter auf der Zero-Page ändern, da es we¬ 
gen der Länge im HGR-Speicher liegt: 
$0067 = $00, $0068 = $40, $3FFF = $00 
bzw. von Applesoft aus: POKE 103,0: 
POKE 104,64: POKE 16383,0. Das Pro¬ 
gramm SOLITAIRE.START führt diese 
POKEs aus und ruft dann das eigentliche 
Programm SOLITAIRE auf. 

Der Binärfile ist von $8000-$8219 abzu¬ 
speichern (BSAVE SOLITAIRE.B, 
A$8000, L$021A). 

Ansonsten erklärt sich das Programm 
durch sein Menü von selbst. 
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jfhobby.^jf 


SOLITAIRE.START 

10 POKE 103,0: POKE 104,64: POKE 16383,0 
20 PRINT CHR$ (4);"RUN SOLITAIRE" 

SOLITAIRE 

100 REM ^(t^jf**;^*^ie^(f^s*^|f***#***;i5*******^*#*^^**^*****^****^****>^ 
105 REM * * 

110 REM * SOLITAIRE - von Stefan Maas, MS den 25.10.84 ¥ 

115 REM * 

120 REM *^i^*JS**#^(f5((**^tf*#*¥^t5^*3^^^*5)f*****5if***^***********^***** 
125 REM 
130 REM 

140 TEXT : HOME ; DIM A(120),B{31},C(31):D${1) = "LINKS 
D$(2) - "HOCH ":D$(3) = "RECHTS":D$(4) - "RUNTER": 

GOTO 845 

145 REM - 

150 REM Festlegung der Grundstellung 

155 REM - 

160 FOR I = 1 TO 32: READ A:A(A) = 1: NEXT I: RESTORE 
165 DATA 26,27,28,37,38,39,46,47,48,49,50,51,52,57,58,59, 
61,62,63,68,69,70,71,72,73,74,81,82,83,92,93,94 

170 IF P2 - 4 THEN GOTO 565 

175 IF P3 = 2 THEN GOTO 825 

180 IF P2 = 1 THEN GOTO 610 

185 REM - 

190 REM Ausführung der Züge 

195 REM 1,2,3,4 = l,,o,,r.,U- Bewegung in B/C(l-31) abgesp, 

200 REM - 

205 1-25 

210 1=1+1: IFI>94 THEN GOTO 440: REM kein Zug mehr 
möglich 

215 IF A(I) = 0 THEN GOTO 210 

220 REM - 

225 REM Bewegung nach links 
230 REM - 

235 IFA(I- 1} =0 0RA(I-2) < >0 OR 1=46 0RI=47 
OR I = 57 OR I = 58 OR I = 68 OR I = 69 THEN GOTO 260 
240 A=I— 2;B=1: GOSUB 335 

245 REM - 

250 REM Bewegung nach oben 
255 REM - 

260 IF A(I + 11} = 0 OR A(I + 22) < > 0 OR I > 80 AND I < 

84 OR I > 91 AND I < 95 THEN GOTO 285 

265 A = I + 22:B = 2: GOSUB 335 

270 REM - 

275 REM Bewegung nach rechts 
280 REM - 

285 IF A(I + 1} = 0 OR A(I + 2) < > 0 OR I = 51 OR I = 52 

OR I = 62 OR I = 63 OR I = 73 OR I = 74 THEN GOTO 310 

290 A=I+2iB=3: GOSUB 335 

295 REM - 

300 REM Bewegung nach unten 
305 REM - 

310 IF A(I - 11) = 0 OR A(I - 22) < > 0 OR I > 25 AND I < 

29 OR 1 > 36 AND I < 40 THEN GOTO 210 

315 A = I - 22:B = 4: GOSUB 335: GOTO 210 

320 REM - 

325 REM Auswertung der Versuche 
330 REM - 

335 IF A = 24 OR A = 25 OR A = 29 OR A = 30 OR A = 35 OR A 

= 36 OR A = 40 OR A = 41 OR A = 79 OR A = 80 OR A = 84 

OR A = 85 OR A = 90 OR A = 91 OR A = 95 OR A = 96 THEN 

RETURN 

340 REM - 

345 REM Ausführung der Versuche 

350 REM - 

355 POP :X = X + 1: REM Pointer 

360 Y = Y + 1; VTAB 21: HTAB 10: PRINT Y; 

365 VTAB 23: HTAB 11; PRINT I" / "D$(B): 

370 A(I) =0; IF B = 1 THEN HCOLOR= 0:11 = I: GOSUB 515: 
HCOLOR= 7:11 - I - 2: GOSUB 515: HCOLOR= 0:11 =1-1: 
GOSUB 515:A(I - 1) = 0:A(I - 2) = 1:C(X) =1-2: GOTO 
390 

375 IF B = 2 THEN HCOLOR= 0:11 = I: GOSUB 515: HCOLOR- 

7'I1 =1+22: GOSUB 515: HCOLOR= 0:11 =1+11: GOSUB 
515:A(I + 11) = 0:A(I + 22) = 1:C(X) =1+22: GOTO 390 
380 IF B = 3 THEN HCOLOR= 0:11 = I: GOSUB 515: HCOLOR= 

7:11 = I + 2: GOSUB 515: HCOLOR= 0:11 = I + 1: GOSUB 
515:A(I + 1) = 0:A(I + 2) = 1:C(X) =1+2: GOTO 390 
385 HCOLOR= 0:11 - I: GOSUB 515: HCOLOR= 7:11 = I - 22: 

GOSUB 515: HCOLOR= 0:11 =1-11: GOSUB 515:A(I - 11) = 
0:A(I - 22) = 1:C{X) =1-22 
390 IF P3 = 2 THEN GOTO 555 
395 IF P2 = 4 THEN GOTO 585 

400 B(X) = B:Q = PEEK (49152): IF Q = 145 THEN POKE 
49168,0: GOTO 820 


405 IF X < > 31 THEN GOTO 205 
410 IF A(60) < > 1 THEN GOTO 205 
415 IF P2 = 2 THEN GOTO 560 
420 IF P2 = 1 THEN GOTO 710 

425 REM - 

430 REM Rüchnahme von Zügen 

435 REM - 

440 A(C(X)) = 0 

445 IF B(X) = 1 THEN I = C(X) + 2: HCOLOR= 0:11 = C(X): 

GOSUB 515; HCOLOR= 7:11 = I - 1: GOSUB 515:11 = I: 

GOSUB 515:A(C(X) + 1) = 1;A(C(X) + 2) = 1:X = X - 1: 

GOTO 260 

450 IF B(X) = 2 THEN I = C(X) - 22; HCOLOR= 0:11 = C(X): 

GOSUB 515: HCOLOR= 7:11 = I + 11: GOSUB 515:11 = I: 

GOSUB 515:A(C(X) - 11) = 1:A(C(X) - 22) = 1:X = X - 1: 
GOTO 285 

455 IF B(X) = 3 THEN I = C(X) - 2: HCOLOR= 0:11 = C(X); 

GOSUB 515: HCOLOR= 7:11 = I + 1: GOSUB 515:11 = I: 

GOSUB 515:A(C(X) - 1) = 1:A(C(X) - 2) = 1:X = X - 1: 

GOTO 310 

460 I = C(X) +22: HCOLOR- 0:11 = C(X): GOSUB 515; HCOLOR= 

7:11 =1-11: GOSUB 515:11 = I: GOSUB 515:A(C(X) + 11) 

= 1;A(C(X) + 22) = 1:X = X - 1: GOTO 210 

465 REM - 

470 REM Grafik mit Text 

475 REM - 

480 HOME ; HGR ; HCOLOR= 7 

485 HPLOT 116,42 TO 162,42 TO 162,70 TO 190,70 TO 190,116 
TO 162,116 TO 162,144 TO 116,144 TO 116,116 TO 88,116 
TO 88,70 TO 116,70 TO 116,42 

490 X = 117;Y = 43; GOSUB 495:X = 89:Y = 71: GOSUB 495:X = 
145:Y = 71: GOSUB 495:X = 117:Y = 99: GOSUB 495: GOTO 
505 

495 FOR I = 1 TO 4: FOR J = 0 TO 2; HPLOT X,Y + J TO X + 

45,Y + J; NEXT J:Y = Y + 14: NEXT I:Y = Y - 56 

500 FOR I = 1 TO 4; FOR J = 0 TO 2: HPLOT X + J,Y TO X + 

J,Y + 45: NEXT J:X = X + 14: NEXT I; RETURN 

505 FOR II = 26 TO 28; GOSUB 515: NEXT II; FOR II = 37 TO 
39: GOSUB 515; NEXT II: FOR II = 46 TO 52: GOSUB 515: 
NEXT II; FOR II = 57 TO 59: GOSUB 515: NEXT II: FOR II 
= 61 TO 63; GOSUB 515: NEXT II: FOR II = 68 TO 74; 

GOSUB 515: NEXT II 

510 FOR II = 81 TO 83: GOSUB 515: NEXT II: FOR II = 92 TO 
94: GOSUB 515: NEXT II: GOTO 525 
515 12 = II / 11:X1 = INT ((12 - INT (12)) * 10) + 14 + 
80:Y1 = 160 - INT (12) + 14 

520 FOR J = 0 TO 6: HPLOT XI,Y1 + J TO XI + 6,Y1 + J: NEXT 
J: RETURN 

525 VTAB 21: PRINT "Versuch;": VTAB 23: PRINT "Position:"; 
530 X = 0:Y = 0: GOTO 160 

535 T = X:Y = Y - X; FOR X = 1 TO T:B = B(X); IF B = 1 THEN 
I = C(X) + 2: GOTO 360 
540 IF B = 2 THEN I = C(X) -22; GOTO 360 

545 IF B = 3 THEN I = C(X) - 2: GOTO 360 

550 I = C(X) + 22: GOTO 360 
555 NEXT X:P3=0:X=X- 1: GOTO 205 
560 T = X:T1 = Y:P2 = 4: GOSUB 480 

565 Y = TI - 31: FOR X = 1 TO T: GOSUB 590:B = B(X); IF B = 
1 THEN I = C(X) + 2: GOTO 360 
570 IF B = 2 THEN I = C(X) - 22; GOTO 360 

575 IF B = 3 THEN I = C(X) - 2: GOTO 360 

580 I = C(X) + 22: GOTO 360 

585 NEXT X: GOSUB 590:X = X - 1: TEXT : HOME : END 
590 VTAB 23: HTAB 28: PRINT "Taste:";: GET T$: RETURN 

595 REM - 

600 REM Druckeransteuerung 

605 REM - 

610 VTAB 10: POKE 35,5: PR+ 1 

615 PRINT CHR$ (27);"D"; CHR$ (34); CHR$ (38); CHR$ (0) 

620 PRINT CHR$ (14); CHR$ (9);" -" 

625 PRINT CHR$ (14); CHR$ (9); CHR$ (9);"SOLITAIRE" 

630 PRINT CHR$ (27);"S"; CHR$ (0); CHR$ (15);" 

Geschrieben von St. Maas, Münster 25.10.84" 

635 PRINT CHR$ (27);"H"; CHR$ (27);"T"; CHR$ (18); 

640 GOSUB 800; IF U = 1 THEN U = 0: GOTO 715 
645 GOSUB 790: PRINT "Brettkodierung;";: GOSUB 795 
650 PRINT CHR$ (27);"D"; CHR$ (48); CHR$ (0); 

655 GOSUB 790; PRINT CHR$ (27);"D"; CHR$ (33); CHR$ (0); 

CHR$ (9);"Zug-Beispiel:";: GOSUB 795 
660 PRINT CHR$ (27);"D"; CHR$ (48); CHR$ (0) 

665 PRINT : PRINT " 92 93 94"; CHR$ (0); CHR$ (9); 

"38 / HOCH bedeutet:" 

670 PRINT " 81 82 83" 

675 PRINT "68 69 70 71 72 73 74"; CHR$ (0); CHR$ (9);"Der 
Stein auf Feld 38 wird auf Feld 60 (HOCH)" 

680 PRINT "57 58 59 60 61 62 63"; CHR$ (0); CHR$ 

(9):"gesetzt und der Übersprungende Stein (Feld 49)" 
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685 PRINT "46 47 48 49 50 51 52"; CHR$ (0); CHR$ 


(9);"entfernt." 

690 PRINT " 37 38 39" 

695 PRINT " 26 27 28"; PRINT 

700 GOSUB 800: PR# 0: POKE 35,24: IF PI = 1 THEN GOTO 710 
705 GOTO 205 

710 VTAB 10: POKE 35,5;L = 0: PR# 1: IF U = 1 THEN GOTO 
615 


715 PRINT CHR$ (13};"Lösung:" 

720 PRINT CHR$ (27);"D"; CHR$ (1); CHR$ (21); CHR$ (41); 

CHR$ (61); CHR$ (81); CHR$ (0) 

725 GOSUB 780 

TO 30: PRINT CHR$ (9);: IF X < 10 THEN 
;: GOTO 760 


730 FOR X = I 
PRINT " ’ 
735 GOTO 760 
740 IF B(X) 
745 IF B(X) 
750 IF B(X) 


1 THEN D = C(X) + 2; RETURN 

2 THEN D = C(X) - 22: RETURN 

3 THEN D = C(X) - 2: RETURN 
755 D = C(X) + 22; RETURN 

760 GOSUB 740: PRINT X;". ";D;" / ";D$(B(X));" r";:L-L+ 

1: IF L < > 4 THEN GOTO 775 
765 L-0:X=X+1: PRINT CHR$ (9);; IF X < 10 THEN 
PRINT " "; 

770 GOSUB 740: PRINT X;". ";D;" / ";D$(B(X)); CHR$ (0) 

775 NEXT X: GOSUB 740: PRINT CHR$ (9);X;". ":D:" / 

";D$(B(X)): GOSUB 800; GOSUB 785: PR# 0: TEXT : HOME : 


END 

780 PRINT CHR$ (27);"R"; CHR$ (0);: 

USA Character-Mode ein 
785 PRINT CHR$ (27);"R"; CHR$ (2);: 

BRD Character-Mode ein 
790 PRINT CHR$ (27);"-"; CHR$ (1);: 

Underline-Mode ein 
795 PRINT CHR$ (27);"-"; CHR$ (0);: 


RETURN : REM 
RETURN : REM 
RETURN : REM 
RETURN : REM 


Underline-Mode aus 

800 PRINT CHR$ (14);: FOR I = 1 TO 48: PRINT : 
PRINT : PRINT : RETURN : REM Zeilenabgrenzung 


NEXT I: 


805 REM - 

810 REM Spielstandabspeicherung 
815 REM - 

820 PRINT : PRINT CHR$ (4);"OPEN SOLITAIRE.SPIELSTAND": 
PRINT CHR$ (4);"WRITE SOLITAIRE.SPIELSTAND": PRINT X; 
PRINT Y: FOR J = 1 TO X: PRINT B(J): PRINT C{J): NEXT 
J: PRINT CHR$ (4);"CLOSE SOLITAIRE-SPIELSTAND": TEXT : 
HOME : END 

825 PRINT : PRINT CHR$ (4);"OPEN SOLITAIRE-SPIELSTAND": 

PRINT CHR$ (4);"READ SOLITAIRE.SPIELSTAND": INPUT X,Y: 
FOR J = 1 TO X: INPUT B(J),C(J): NEXT J: PRINT CHR$ 
(4);"CL0SE SOLITAIRE.SPIELSTAND":U = 1: GOTO 535 

830 REM - 

835 REM Menü 
840 REM - 

845 INVERSE : PRINT "- 

SOLITAIRE von Stefan Maas 25,10.84 
-"; NORMAL 


850 PRINT "Lösungsmöglichkeiten:": PRINT : HTAB 3: PRINT 
"(1) schnelle Lösung (Ausführungsdauer": HTAB 7: PRINT 
"ca. 41 Sekunden, ohne Grafik)": PRINT 
855 HTAB 3: PRINT "(2) langsame Lösung (Ausführungsdauer": 

HTAB 7: PRINT "ca. 14,5 Stunden, mit Grafik)": PRINT 
860 PRINT "Auagabe der gefundenen Lösungen:": PRINT : HTAB 
3; PRINT "(3) auf Drucker";: HTAB 22: PRINT "(4) auf 
Bildschirm": PRINT 

865 PRINT "Programmstart:": PRINT : HTAB 3: PRINT "(5) 

Neustart": HTAB 3; PRINT "(6) unterbrochene Partie neu 
starten" 

870 POKE 1795,49: POKE 1835,51: POKE 1363,53:PI = 1:P2 = 
1:P3 - 1 

875 VTAB 24: HTAB 1: PRINT "Wähle 1-6 (RETURN <=> Start):"; 

880 GET P$: IF ASC (P$) = 13 AND PI = 2 THEN GOTO 480 

885 IF ASC (P$) = 13 THEN GOTO 945 

890 IF ASC (P$) < 49 OR ASC (P$) > 54 THEN GOTO 875 

895 P = VAL (P$): ON P GOTO 900,905,910.915,920,925 

900 POKE 1795,49: POKE 1195,178;PI = 1: GOTO 920 

905 POKE 1195,50: POKE 1795,177:PI = 2: GOTO 880 

910 POKE 1835,51: POKE 1854,180:P2 - 1: GOTO 880 

915 POKE 1854,52: POKE 1835,179:P2 = 2: GOTO 880 

920 POKE 1363,53: POKE 1491,182:P3 = 1: GOTO 880 

925 POKE 1491,54: POKE 1363,181:P3 = 2: GOTO 905 

930 REM - 

935 REM Binärfilesteuerung 
940 REM - 

945 HOME : HTAB 4: PRINT "SOLITAIRE-Binärfile wird 

geladen": PRINT CHR$ (4);"BLOAD SOLITAIRE.B": VTAB 5: 
HTAB 9: PRINT "Lösungssuche gestartet": PRINT ; HTAB 2: 
PRINT "(Lösung bei Klinkelzeichen gefunden)": CALL 
32768 


950 VTAB 11; HTAB 13: PRINT "Datenübergabe": FOR I = 1 TO 
31:B(I) = PEEK (33631 + I):C(I) = PEEK (33663 + I): 
NEXT I 

955 IF P2 = 1 THEN GOTO 610 

960 Y = 256 * PEEK (251) + PEEK (252);X = 31: GOTO 560 


SOLITAIRE.B 

2 * SOLITAIRE - St. Maas, 25.10.84 * 

3 *^^^^***T(f#******^^i(f5|t**4K************** 

4 

5 ORG $8000 

6 POINTERl EQU $FF 

7 P0INTER2 EQU $FE 

8 P0INTER3 EQU $FD 

9 VERSL EQU $FC 

10 VERSH EQU $FB 

11 SPIEL EQU $8300 

12 

13 *«»*****•«•«•*•#«••»*••» 

14 * Spielfelddefinierung * 


15 






8000: A9 00 


16 

START 

LDA 

#00 

8002: 85 FD 


17 


STA 

P0INTER3 

8004; 85 FC 


18 


STA 

VERSL 

8006; 85 FB 


19 


STA 

VERSH 

8008: A2 78 


20 


LDX 

#120 

800A: CA 


21 

SPIELl 

DEX 


800B: 9D 00 

83 

22 


STA 

SPIEL,X 

800E: D0 FA 


23 


BNE 

SPIELl 

8010; A9 01 


24 


LDA 

#01 

8012; BC 20 80 

25 

SPIEL2 

LDY 

FELD,X 

8015: 99 00 

83 

26 


STA 

SPIEL,Y 

8018: E8 


27 


INX 


8019: E0 20 


28 


CPX 

#32 

a01B: F0 23 


29 


BEQ 

TEST 

801D: 4C 12 80 

30 


JMP 

SPIEL2 

8020: lA IB 

IC 

31 

FELD 

HEX 

1A1B1C2526272E2F 

8023; 25 26 

27 

2E 2F 




8028: 30 31 

32 

32 


HEX 

3031323334393A3B 

802B: 33 34 

39 

3A 3B 




8030: 3D 3E 

3F 

33 


HEX 

3D3E3F4445464748 

8033; 44 45 

46 

47 48 




8038; 49 4A 

51 

34 


HEX 

494A5152535C5D5E 

803B: 52 53 

5C 

5D 5E 






35 






36 

* Ausführung der Züge *■ 



37 

* 1,2,3, 

,4=1 

., 0 .,r.,u. Bewegung * 



38 

********************************** 

8040; A0 19 


39 

TEST 

LDY 

#25 

8042: 84 FF 


40 


STY 

POINTERl 

8044: A4 FF 


41 

TESTl 

LDY 

POINTERl 

8046: C8 


42 


INY 


8047: 84 FF 


43 


STY 

POINTERl 

8049: C0 5F 


44 


CPY 

#95 

804B: D0 03 


45 


BNE 

TESTIA 

804D: 4C 9A 

81 

46 


JMP 

TESTNEG 

8050: B9 00 

83 

47 

TESTIA 

LDA 

SPIEL,Y 

8053: F0 EF 


48 


BEQ 

TESTl 

8055: 84 FF 


49 


STY 

POINTERl 



50 

*********************** 



51 

* Bewegung nach links * 



52 




8057: A4 FF 


53 

LINKS 

LDY 

POINTERl 

8059: 88 


54 


DEY 


805A: 84 FE 


55 


STY 

P0INTER2 

805C: B9 00 

83 

56 


LDA 

SPIEL,Y 

805F: F0 23 


57 


BEQ 

OBEN 

8061: 88 


58 


DEY 


8062: B9 00 

83 

59 


LDA 

SPIEL,Y 

8065: D0 ID 


60 


BNE 

OBEN 

8067: C0 2C 


61 


CPY 

#44 

8069: F0 19 


62 


BEQ 

OBEN 

806B: C0 2D 


63 


CPY 

#45 

806D: F0 15 


64 


BEQ 

OBEN 

806F: C0 37 


65 


CPY 

#55 

8071: F0 11 


66 


BEQ 

OBEN 

8073: C0 38 


67 


CPY 

#56 

8075; F0 0D 


68 


BEQ 

OBEN 

8077: C0 42 


69 


CPY 

#66 

8079; F0 09 


70 


BEQ 

OBEN 

807B: C0 43 


71 


CPY 

#67 

807D: F0 05 


72 


BEQ 

OBEN 

807F: A2 01 


73 


LDX 

#01 

8081: 20 lE 

81 

74 


JSR 

TEST2 


66 


Peeker 6/85 


















^ hobby 




?5 







161 

********************************* 



?6 

¥ Bewegung nach oben * 




162 

* Zusatzauswertung der Versuche * 



?? 







163 

********************************* 

8084: A5 

FF 

?8 

OBEN 

LDA 

POINTERI 


811E: C0 18 


164 

TEST2 CPY 

#24 

8086: 18 


?9 


CLC 



8120: F0 3F 


165 

BEQ 

TESTS 

808?: 69 

0B 

80 


ADC 

#11 


8122: C0 19 


166 

CPY 

#25 

8089: A8 


81 


TAY 



8124: F0 3B 


167 

BEQ 

TEST3 

808A: 85 

FE 

82 


STA 

P0INTER2 


8126: C0 ID 


168 

CPY 

#29 

808C: B9 

00 83 

83 


LDA 

SPIEL,Y 


8128: F0 3? 


169 

BEQ 

TESTS 

808F; F0 

28 

84 


BEQ 

RECHTS 


812A: C0 lE 


170 

CPY 

+30 

8091; A5 

FE 

85 


LDA 

P0INTER2 


812C: F0 33 


171 

BEQ 

TESTS 

8093: 18 


86 


CLC 



812E: C0 23 


172 

CPY 

#35 

8094: 69 

0B 

8? 


ADC 

#11 


8130: F0 2F 


173 

BEQ 

TESTS 

8096: A8 


88 


TAY 



8132: C0 24 


174 

CPY 

#36 

809?: B9 

00 83 

89 


LDA 

SPIEL.Y 


8134: F0 2B 


175 

BEQ 

TEST3 

809A: D0 

ID 

90 


BNE 

RECHTS 


8136: C0 28 


176 

CPY 

#40 

809C: C0 

6? 

91 


CPY 

#103 


8138: F0 2? 


177 

BEQ 

TEST3 

809E: F0 

19 

92 


BEQ 

RECHTS 


813A: C0 29 


178 

CPY 

#41 

80A0: C0 

68 

93 


CPY 

#104 


813C: F0 23 


179 

BEQ 

TEST3 

80A2: F0 

15 

94 


BEQ 

RECHTS ' 


813E: C0 4F 


180 

CPY 

*79 

80A4: C0 

69 

95 


CPY 

#105 


8140: F0 IF 


181 

BEQ 

TEST3 

80A6: F0 

11 

96 


BEQ 

RECHTS 


8142: C0 50 


182 

CPY 

#80 

80A8: C0 

?2 

9? 


CPY 

#114 


8144; F0 IB 


183 

BEQ 

TEST3 

80AA: F0 

0D 

98 


BEQ 

RECHTS 


8146: C0 54 


184 

CPY 

#84 

80AC: C0 

?3 

99 


CPY 

#115 


8148; F0 17 


185 

BEQ 

TEST3 

80AE: F0 

09 

100 


BEQ 

RECHTS 


814A: C0 55 


186 

CPY 

#85 

80B0: C0 

74 

101 


CPY 

#116 


814C: F0 13 


187 

BEQ 

TEST3 

80B2: F0 

05 

102 


BEQ 

RECHTS 


814E: C0 5A 


188 

CPY 

#90 

80B4: A2 

02 

103 


LDX 

#02 


8150: F0 0F 


189 

BEQ 

TEST3 

80B6: 20 

lE 81 

104 


JSR 

TEST2 


8152; C0 5B 


190 

CPY 

#91 



105 



8154; F0 0B 


191 

BEQ 

TESTS 



106 

* Bewegung nach rechts * 


8156: C0 5F 


192 

CPY 

#95 



10? 

********** ätf ** #***^^ 


8158; F0 0? 


193 

BEQ 

TEST3 

80B9; A4 

FF 

108 

RECHTS 

LDY 

POINTERI 


815A; C0 60 


194 

CPY 

#96 

80BB: C8 


109 


INY 



815C: F0 03 


195 

BEQ 

TEST3 

80BC: 84 

FE 

110 


STY 

P0INTER2 


815E; 4C 62 

81 

196 

JMP 

TEST4 

80BE: B9 

00 83 

111 


LDA 

SPIEL,Y 


8161: 60 


197 

TEST3 RTS 


80C1: F0 

23 

112 


BEQ 

UNTEN 




193, 

************************ 

80C3: C8 


113 


INY 





199 

* Ausführung 

von Zügen * 

80C4: B9 

00 83 

114 


LDA 

SPIEL,Y 




200 

************************ 

80C?: D0 

ID 

115 


BNE 

UNTEN 


8162: E6 FC 


201 

TEST4 INC 

VERSL 

80C9: C0 

35 

116 


CPY 

#53 


8164: D0 02 


202 

BNE 

VERSl 

80CB: F0 

19 

11? 


BEQ 

UNTEN 


8166: E6 FB 


203 

INC 

VERSH 

80CD: C0 

36 

118 


CPY 

#54 


8168: 68 


204 

VERSl PLA 


80CF: F0 

15 

119 


BEQ 

UNTEN 


8169: 68 


205 

PLA 


80D1: C0 

40 

120 


CPY 

#64 


816A; E6 FD 


206 

INC 

P0INTER3 

S0D3: F0 

11 

121 


BEQ 

UNTEN 


816C: 8A 


207 

TXA 


80D5; C0 

41 

122 


CPY 

#65 


816D: A6 FD 


208 

LDX 

P0INTER3 

80D?: F0 

0D 

123 


BEQ 

UNTEN 


816F: 9D 5F 

83 

209 

STA 

$835F,X 

80D9: C0 

4B 

124 


CPY 

#75 


8172: 98 


210 

TYA 


80DB: F0 

09 

125 


BEQ 

UNTEN 


8173: 9D ?F 

83 

211 

STA 

$837F,X 

80DD: C0 

4C 

126 


CPY 

#76 


8176: A9 01 


212 

LDA 

#01 

80DF; F0 

05 

12? 


BEQ 

UNTEN 


8178: 99 00 

83 

213 

STA 

SPIEL,Y 

80E1: A2 

03 

128 


LDX 

#03 


817B: A9 00 


214 

LDA 

#00 

80E3: 20 

lE 81 

129 


JSR 

TEST2 


817D; A4 FF 


215 

LDY 

POINTERI 



130 

*********************** 


817F: 99 00 

83 

216 

STA 

SPIEL,Y 



131 

* Bewegung nach unten * 


8182: A4 FE 


217 

LDY 

POINTER2 



132 

*********************** 


8184: 99 00 

83 

218 

STA 

SPIEL,Y 

80E6: A5 

FF 

133 

UNTEN 

LDA 

POINTERI 


8187: E0 IF 


219 

CPX 

#31 

80E8: 38 


134 


SEC 



8189: F0 03 


220 

BEQ 

ENDE 

80E9: E9 

0B 

135 


SBC 

#11 


818B: 4C 40 

80 

221 

JMP 

TEST 

80EB: A8 


136 


TAY 



818E: AD 3C 

83 

222 

ENDE LDA 

$833C 

80EC: 85 

FE 

13? 


STA 

P0INTER2 


8191: D0 03 


223 

BNE 

END El 

80EE: B9 

00 83 

138 


LDA 

SPIEL,Y 


8193: 4C 40 80 

224 

JMP 

TEST 

80F1: F0 

28 

139 


BEQ 

TESTll 


8196: 20 DD 

FB 

225 

ENDEI JSR 

$FBDD 

80F3: A5 

FE 

140 


LDA 

P0INTER2 


8199: 60 


226 

RTS 


80F5: 38 


Ml 


SEC 





227 

*********************** 

80F6: E9 

0B 

142 


SBC 

#11 




228 

* Rücknahme von Zügen * 

80F8: A8 


143 


TAY 





229 

*********************** 

80F9: B9 

00 83 

144 


LDA 

SPIEL,Y 


819A: A4 FD 


230 

TESTNEG LDY 

POINTERS 

80FC: D0 

ID 

145 


BNE 

TESTll 


819C: B9 5F 

83 

231 

LDA 

$835F,Y 

80FE; C0 

04 

146 


CPY 

#4 


819F: BE 7F 

83 

232 

LDX 

$S37F,Y 

8100: F0 

19 

14? 


BEQ 

TESTll 


81A2: C9 01 


233 

CMP 

#01 

8102: C0 

05 

148 


CPY 

#5 


81A4: F0 28 


234 

BEQ 

TESTNEGl 

8104: F0 

15 

149 


BEQ 

TESTll 


81A6: C9 02 


235 

CMP 

#02 

8106; C0 

06 

150 


CPY 

#6 


81A8: F0 3A 


236 

BEQ 

TESTNEG2 

8108: F0 

11 

151 


BEQ 

TESTll 


81AA: C9 03 


237 

CMP 

#03 

810A: C0 

0F 

152 


CPY 

#15 


81AC: F0 56 


238 

BEQ 

TESTNEG3 

810C; F0 

0D 

153 


BEQ 

TESTll 


81AE: A9 00 


239 

LDA 

#00 

810E; C0 

10 

154 


CPY 

#16 


81B0: 9D 00 

83 

240 

STA 

SPIEL,X 

8110; F0 

09 

155 


BEQ 

TESTll 


81B3: 8A 


241 

TXA 


8112; C0 

11 

156 


CPY 

#1? 


81B4: 18 


242 

CLC 


8114: F0 

05 

15? 


BEQ 

TESTll 


81B5; 69 0B 


243 

ADC 

#11 

8116; A2 

04 

158 


LDX 

#04 


81B7: AA 


244 

TAX 


8118: 20 

lE 81 

159 


JSR 

TEST2 


81B8: A9 01 


245 

LDA 

#01 

811B; 4C 

44 80 

160 

TEST11 

JMP 

TESTl 


81BA: 9D 00 

83 

246 

STA 

SPIEL,X 


Peelsere/SS 


67 
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81BD: 8A 



247 

TXA 


81BE; 18 



248 

CLC 


81BF; 69 

0B 


249 

ADC 

#11 

81C1: AA 



250 

TAX 


81C2: A9 

01 


251 

LDA 

#01 

81C4: 9D 

00 

83 

252 

STA 

SPIEL,X 

81C?: C6 

FD 


253 

DEC 

P0INTER3 

81C9; 86 

FF 


254 

STX 

POINTERl 

81CB: 4C 

44 80 

255 

JMP 

TESTl 

81CE: A9 

00 


256 

TESTNEGl LDA 

#00 

81D0: 9D 

00 

83 

257 

STA 

SPIEL,X 

81D3: A9 

01 


258 

LDA 

#01 

81D5: E8 



259 

INX 


81D6: 9D 

00 

83 

260 

STA 

SPIEL,X 

81D9; E8 



261 

INX 


81DA: 9D 

00 83 

262 

STA 

SPIEL,X 

81DD: C6 

FD 


263 

DEC 

P0INTER3 

81DF1 86 

FF 


264 

STX 

POINTERl 

81E1; 4C 

84 

80 

265 

JMP 

OBEN 

81E4: A9 

00 


266 

TESTNEG2 LDA 

#00 

81E6: 9D 

00 

83 

267 

STA 

SPIEL,X 

81E9: 8A 



268 

TXA 


81EA; 38 



269 

SEC 


81EB: E9 

0B 


270 

SBC 

#11 

81ED: AA 



271 

TAX 


81EE: A9 

01 


272 

LDA 

#01 

81F0: 9D 

00 

83 

273 

STA 

SPIEL,X 

81F3: 8A 



274 

TXA 


B1F4: 38 



275 

SEC 



S1F5; E9 

0B 


276 


SBC 

#11 


81F7: AA 



277 


TAX 



81F8: A9 

01 


278 


LDA 

#01 


81FA: 9D 

00 

83 

279 


STA 

SPIEL,X 


81FD; C6 

FD 


280 


DEC 

P0INTER3 


81FF: 86 

FF 


281 


STX 

POINTERl 


8201: 4C 

B9 

80 

282 


JMP 

RECHTS 


8204: A9 

00 


283 

TESTNEG3 LDA 

=1^00 


8206: 9D 

00 

83 

284 


STA 

SPIEL,X 


8209; A9 

01 


285 


LDA 

#01 


820B: CA 



286 


DEX 



820C: 9D 

00 

83 

287 


STA 

SPIEL,X 


820F: CA 



288 


DEX 



8210: 9D 

00 

83 

289 


STA 

SPIEL,X 


8213: C6 

FD 


290 


DEC 

P0INTER3 


8215: 86 

FF 


291 


STX 

POINTERl 


8217: 4C 

E6 

80 

292 


JMP 

UNTEN 


538 Bytes 







Tabelle ^ 

L: Brettkodierung 




92 

93 

94 


Zugbeispiel: 


81 

82 

83 






68 69 70 71 

72 

73 74 


38 / HOCH bedeutet 


57 58 59 

60 61 

62 63 





46 47 48 

49 50 

51 52 

Der 

Stein 

auf Feld 38 

wird auf Feld 

37 

38 

39 


60 

(HOCH) 

gesetzt und 

der übersprun-^^ 

26 

27 

28 


gene Stein 

(Feld 49) 

entfernt. 







Lflvl s.yiJ ^fji:t(riiiZj(jicrinur>nAtiunid^rnp]iH:ienQtnrjic4^ tZ OAO iJif 

kwdficriiMtll,Datifini|[ööriBiic*KJiirm. 

QütöAürtowjnfl. Vic^oFirÄlkJfiortbeJrll* MUUb«: 

p^rolJiRtnmtbft 'iVtd Fr(4i4i«4.inL‘^(;^c4c^lype/Fiil/ 

Pjmii u, vtal, wot riwnr- Kwnförta 4 jti> h1or>u- 
Sltn^ATung. Anftchtuß über OAniir K) Pdl 
Lifllcfuriq rm SpllivjKis 5 ’ j* PiicfiUe 

und Anloilung 

BN 65156 DM189,— 


ATARI-Sensorkeyboard. Matrix. Tasten frei b 
Ausgeprägte Tasten f. sichere Eingabe. 61 j^j 


BN 93185 

ASC ll*Keyboards evjt ki6ivi«n üinlgu Taitonfehiuii. 
Wrr Il0l4frri Malflr 7 (fItHclut Koybdiirdl- 
Aui^mnch 1. 

BN 93190 2XASCII 


9,80 


Unser Kundendienst in Baden-Baden 
und Kfirl$^uhe kann altes reo^riorefti 
Wir verfügen über ali« Ersatzteile. 


4 Stück nur 


BN 93191 

2x3 Amp, Computer Netzfilter 

BN 93192 

2x2 Amp. aber mit Kalgeräte-Steckdose 

BN 93194 


DM 24,90 
DM 45,— 
DM 5,90 


DM 7,90 


ASC Il-Keyboards 
mit 

Gehäuse 


Paßt an laden Apple und a^miiclic 

LniJtioses SVi' Röppyd.flutwMrk twnarKicrtm. 
JHncHiwitgohJ Mfichönih. ElekUonik gtupmUart 
ohne AmdEwIo Wir obbon Qitrrift 1 Jahr GntAdlM 
hpl'dlssDOunKtCtk Sfah l.ins. 
slap. £p»txanieciihok^iD 

BN 65147 Geräuschloses SVj” DM 448,— 
BN 65148 Pass.Slim Line Geh, DM 38,— 
BN 65011 Disc Drive Card DM 119,— 

Blitzpreis! Japan-Qualität 

5V4”/Apple compatible Anschlußkabel 

Apple fähiges Floppy, Slim Line. Metall-Gehäuse 
1 Jahr Vollgarantie. Sofort anschließbar. 

Einfach nur am Apple einstecken, 

BN 65151 DM 399,90 


ASCII- 
Slundord 
TnätAtUr Aopki 
u. Nt>Ft Cdmpulof fühig. 
Robleihlofihr Mschtufl. Vollo Onrcmtfo 
mit Anschluß manual. Pultgehäuse. Industrieware. 
Kabel mit 26-pol. Stecker. Processor AMI 8207 Stromvers. ±5 V. 
BN 93077 

Dieselbe Tastatur mit 10er Block u. Cursor, 

Processor AMI 0021. miil H OQ _ 

BN 93078 UIVI lOy,"^ 

Tastatur wie BN 93078 ohne Gehäuse 89 90 


DM 98,— 


BN 93079 

Der Massenspeicher 1 M-Byte 


Hochwertige Interface-Leerplatinen 
für Apple u. ä. 

Epoxy oder glasfaserverstärktes Material. Bereits gebohrt. 


Mit Anschlußanleitung für Apple-Computer. 
3"-Mini-Floppy-Laufwerk. 2 x80 = 160 Track. 

1 Mega-B Doppelkopf. Standard Shugart BUS. 
Qualitätslaufwerke eines bekannten Japanischen 
Herstellers. Guß-Chassis. 1 Jahr Garantie. Kun¬ 
dendienst über unsere Organisation, 
nur 150 x lOOx H 40 mm. 

65163 1 M-BYTE-KAPAZ. DM 598,— 


65164 64 K Motherboard 89,— 
Dual-Processor 

65165 Z-80 

65166 80 Zeichen/Soft 

65167 Serial/RS 232 

65168 Parallel/0 Bit 

65169 16 KRAM 

65170 6522 


19,50 

19,50 

15,90 

15,90 

19,50 

15,90 


65171 Eprom Writer 19,50 

65172 PAL/VIDEO/Modul. 19,50 


65173 128 K 

65174 Mikro Buffer 

65175 Buffer Printer 

65176 Super Serial 

65177 A/D 

65178 Micro Modem 


DM 9,95 


29.50 
19,90 
25,80 
19,90 

19.50 

29.50 


5 Stuck Comp. Cassetten. 

10 Min Tonbandspulen 

BN 65045 

5 Stuck Comp Cassetten, 

15 Mm ohne Tonbandspulen. 

BN 65046 DM 6,90 

5 Stuck Disceltenbox 5' T (ur je 5 Discetlen farbig 

BN 65112 DM12,90 

5 Vj" Discelten Bibliothek für 10 Discetten Kunststoff 

BN 65057 DM 8,90 

5'/j" Discetten Bibliothek für 15 Discetlen Kunststoff 

BN 65130 DM 19,80 

S'/j' Discetten Bibliothek für 50 Discetten Kunststoff 

BN 65110 DM28,50 

5''j ’ Discetlen Bibliothek 

für 100 Discetten Kunststoff abschließbar 

BN 65049 DM 49,80 

Uisc Üoubler (Notcher) 

macht aus einer SS eine DS 5' j" _ 

BN 65143 DM14,90 

‘Microswitch. _ 

Standard ASCII Parallel. 

Halllaslatur/Cursor/Viele Funktions- 
lasten/+5 \//-12 V 

BN 92272 Apple u a DM178,— 


w 


Der SUPERKNÜPPEL FÜR APPLE 
und kompatible. VG-071. 

Joystick der edolsten Sorlo, 

L«iciilgiin«oar KretUkmippAl mH auTomnliBcnnr 
Nullpuftkl-RiJcksleÄijno. Sp«lbHo Titmmfflglw 
jtu gänaLwn EirnKdoUino jwloft Knneil 
2 AbftchulHirkopfo. Rutwirifttilb GdtwnWiilo 
Ficudbioa 1 .GO m infig. 

Komplett mit Stecker, sofort betriebsbereit 
Metallgehause 

BN 65056 VG-071 DM 49,90 


Original TEAC 55 F. Double Density. 2 x 80Track. 

BN 65179 DM 598,— 

300 Band Modem CCITTV. 21 
Po!ilmnvhnik]l Anschluß an oflA CwnputtP 

intt Va4 SehniUstnifc. Schii(lftlöUwi*tDGhor. Votlduplw. 

und OHgimüntodi». AuEdfn. Kdnafwnftl. 

MMdA In UArrnnnyi _ 

BN 65180 Ulvl 

Neue Discetten-Boxen 

Karussell-Box für 64 Discetten 5V4”. 

Bequemer Zugriff. Stapelbar oder mit 
Wandhalterung, 0 320 x H 200 mm. 

BN 65155 dm 59,80 

Jetzt 3,5" Discetten-Box für 

50 Stück 3,5*’ Discetten 

Klappbox mit Sortiereinrichtung. 

BN 65146 DM 29,50 


iBWi 


Bühler Elektronik, Postfach 32,7570 Baden-Baden, Tel. (07221) 3487 
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Leserbriefe 

Garbage Collection bei TASC 

Zuerst möchte ich mich für die Ver¬ 
öffentlichung dieser wirklich inter¬ 
essanten Routine bedanken, durch 
welche es möglich ist, die meiner 
Meinung nach größte Schwach¬ 
stelle des Applesoft-Interpreters 
auf einfache und sichere Art zu 
umgehen. 

Des weiteren möchte ich nun an- 
fragen, ob die Möglichkeit besteht, 
diese Routine auch auf mit TASC 
2.0 compilierte Programme anzu¬ 
wenden, und welche Modifikatio¬ 
nen hierzu notwendig sind. 

Kurt Lutsch, Esslingen-Zell 
Diese Frage wurde uns sehr häufig 
gestellt. Das FRE-Programm aus 
Peeker 1/2, 1985, läuft jedoch 
nicht beim TASC, weil dieser ganz 
andere String-Pointer als Applesoft 
benutzt. So steht beispielsweise 
das Länge-Byte vor dem String 
selbst und nicht beim Pointer wie 
in Applesoft. Es wäre deshalb er¬ 
forderlich, das FRE-Programm völ¬ 
lig umzuschreiben. Übrigens, 
wenn man die RUNTIME von 
TASC 2.0 mit BLOAD RUNTIME, 
A$0806 einlädt, so befindet sich 
der TASC-eigene FRE-Befehl ab 
$0F16 im Speicher, us 

RAMDISK.LC-Bug 

Mein RAMDISK.LC-Programm 
enthielt leider einen unerfreulichen 
Bug. Es springt von der LC zu¬ 
nächst nach $0100 in den Stack, 
um dort die LC abzuschalten. Den 
Stack wählte ich, weil die unteren 
48K, z,B. ab $0300 o.ä., unberührt 
bleiben sollten. Bei Applesoft- und 
Binärfiles war noch alles in Ord¬ 
nung. Wenn jedoch Zahlen-JexX- 
files mit „FORX = 1 TO N : PRINT 
Z (X): NEXT“ gespeichert werden 
sollten, passierte folgendes: Jede 
einzelne Zahl Z (X) wird vom Ap- 
plesoft-lnterpreter in einen ASCII- 
String konvertiert, der zunächst ab 
$0100 abgelegt wird. Diese ASCII- 
Strings werden nach und nach in 
den I/O-Puffer z.B. ab $9600 über¬ 
tragen. Wenn dieser Puffer voll ist, 
greift die RWTS und folglich auch 
der RAM-Disk-Driver ein, der den 
Bereich ab $0100 wegen des ge¬ 
nannten Rücksprungs modifiziert. 
Und genau diese geänderten 
Bytes werden dann als Zahl auf 
den RAM-Disk-Sektor geschrie¬ 
ben, und zwar dann, wenn eine 
Zahl zwei Sektoren überlappt (z.B. 
die ersten 3 Ziffern am Ende des 
vorangehenden und die letzten 3 
Ziffern am Anfang des nachfolgen¬ 


den Sektors). Statt $0100 kann 
man z.B. $0110 als Rücksprung 
wählen, womit der Bug beseitigt 
wird. Es ist dann wie folgt zu pat- 
chen: 

BLOAD RAMDISKLC 

CALL-151 

63CC:10 

63D4: 13 

63D7: 10 

63E9: 10 

CtrI-C 

BSAVE RAMDISK.LC, A24861, 
L739 

Die nachfolgenden Leserbriefe be¬ 
ziehen sich auf diesen Bug. Man 
beachte die geniale Lösung von 
Herrn Kociemba, die jedoch nur 
auf dem Apple II Pius und dem 
momentanen Ile funktioniert, nicht 
jedoch auf dem Apple llc sowie 
auch nicht auf dem Apple Ile mit 
den neuen ROMs, weil sich $40 = 
Opcode für RTI bei $FFFE befin¬ 
den muß: 

Als Leser, der Ihre Zeitschrift von 
Anfang an regelmäßig liest, möch¬ 
te ich nach der Mai-Ausgabe nun 
auch eine kleine Kritik anbringen. 
Zum RAM-Disk-Driver-Artikel 
möchte ich fragen, warum der Um¬ 
weg über Stackbereich oder eine 
158,- DM teure Interface-Karte ge¬ 
nommen werden muß.. Es wäre 
doch theoretisch denkbar, die 
Routine zur Übertragung von 
„oben" nach „unten“ parallel im 
Hauptspeicher und im Zusatzspei¬ 
cher unterzubringen, so daß der 
Prozessor nach dem Umschalten 
die Routine im RAM auf der 64K- 
Karte weiter abarbeiten kann. Eine 
derartige Methode hätte zwar den 
Nachteil, daß etwas mehr Speicher 
für das Programm gebraucht wird, 
wäre aber eleganter als eine Zer¬ 
störung des Stacks oder der Ge¬ 
brauch einer teuren Zusatzkarte. 
Ihre Ankündigung 4 weiterer Pro¬ 
gramme für diese Karte läßt mich 
einen Test dieser Karte fordern. 
H.-D. Siewert, Lippstadt 

Mit Interesse habe ich Ihren Artikel 
über die „Poor Man's RAM-Disk" 
gelesen. Sie schreiben, daß es 
nicht möglich ist, die Language 
Card von der Language Card aus 
zu desaktivieren. Mit einem klei¬ 
nen Programmiertrick ist dies je¬ 
doch immer problemlos möglich, 
wobei das Programm jedoch von 
der Art des verwendeten ROMs 
abhängen kann. 

Das hier beschriebene Programm 
funktioniert mit dem Autostart 
ROM, das wohl bei der überwie¬ 
genden Mehrzahl aller Apple ver¬ 
wendet wird, und beruht aus¬ 


schließlich auf der Tatsache, daß 
der IRQ-Vektor dieses ROMs auf 
die Routine $FA40 zeigt. Dabei 
sind die Zeilen 471 bis 513 des 
von Ihnen beschriebenen RAM- 
Disk-Drivers durch folgende Zeilen 
zu ersetzen: 

EOU $BD06 
JSR ZEROLOAD 
LDA /WEITER 
PHA 

LDA #WEITER 
PHA 
PHP 

JMP LCOFF 
JSR ZEROLOAD 
TSX 
PHP 
INX 

INC STACK,X 
BNE LCOFF 
INX 
INC 

INC STACK,X 
JMP LCOFF 
ZEROLOAD LDX #3 
ZEROL1 LDA ZERO,X 
STA RAM,X 
DEX 

BPL ZEROL1 
LDY <2 
RTS 
DFS $7 

LCOFF B[T$BIT$C082 
Herbert Kociemba, Darmstadt 

Es geht auch anders 

Äußerst zuvorkommend war der 
Service der Firma Erphi-Elektronik, 
die nicht nur vollkommen kosten¬ 
los das EPROM meines Erphi- 
Controllers gegen einen neueren 
Stand austauschte, sondern auch 
gegen einen niedrigen Betrag 
mein eigenes 2 x 80 Track Philips- 
Laufwerk für Apple-Standard mo¬ 
difizierte. 

Sowohl mit Laufwerk und speziell 
mit dem Controller bin ich mehr als 
zufrieden! 

Leider gibt es auch Firmen mit an¬ 
derer Geschäftsauffassung - be¬ 
sonders nach Verkauf der Pro¬ 
dukte. 

Es würde mich freuen, wenn die¬ 
ser Brief veröffentlicht würde. Ich 
habe Hoffnung, daß derartiges 
Aufzeigen von sehr positiver Kun¬ 
denbetreuung auch andere Her¬ 
steller/Händler zu ähnlichem Ver¬ 
halten animiert. 

Udo W.Völker, Essen 

PLOT.2.0 

Im Programm PLOT.2.0 in Peeker 
5/85 auf Seite 17 haben sich leider 
zwei Fehlereingeschlichen: 

3940 GOSUB 4700: IF A$ = “N“ 
THEN 3910 


WEITER 

EXIT1 


EXIT2 


5400 CALL AS%: F$ = “Y= ": 
GOSUB2 

Außerdem könnte man den EXEC- 
File weglassen, wenn man Zeile 
5610 folgendermaßen ändert: 

5610 POKE 103,1: POKE 16384,0: 
PRINT CHR$(4) "RUN PLOT.2.0". 
Alois Strobel, Forbach 
Vielen Dank für die Korrektur. 
„GOSUB 1010" geht „auf unsere 
Kappe", da wir u.a. die ersten Zei¬ 
len umgeschrieben haben, weil 
man sonst Zeile 2 nicht mehr ein¬ 
geben könnte, us 

DOS in LC 

Obwohl mir Peeker sonst ganz gut 
gefällt, finde ich es nicht gut, daß 
angekündigte Beiträge nicht ge¬ 
druckt werden, wie z.B. die As¬ 
sembler-Einführung oder das 1- 
Drive-Kopierprogramm, und daß 
Serien sehr weit auseinandergezo¬ 
gen werden und nicht in aufeinan¬ 
derfolgenden Ausgaben erschei¬ 
nen (siehe Graf-quattro). Übri¬ 
gens: Einen Artikel über das Ver¬ 
schieben des DOS in die LC finde 
ich wünschenswert. 

Torsten Wolf, Bochum 

SCREEN 80 

Ich habe seit ein paar Wochen Zu¬ 
gang zu einem Apple Ilc-System 
mit externer Floppy und Imagewri- 
ter. Weiterhin lese ich seit ein paar 
Monaten die Peeker-Hefte. 

Nun verfüge ich zwar über Grund¬ 
kenntnisse in BASIC, habe aber 
leider keine Ahnung und äußerst 
wenig Zeit, mir diese in Assem¬ 
bler-Programmierung zu verschaf¬ 
fen. Dennoch möchte ich aber die 
in Peeker erscheinenden Program¬ 
me in eigenen Programmen als 
Utilities oder selbständig verwen¬ 
den und einsetzen, da sie meist 
die Sparten abdecken, die ich als 
Nur-Anwender gut gebrauchen 
kann. Wie gebe ich aber die mit 
BASIC gemischten oder reinen 
Assembler-Listings und Hex- 
Dumps ein? - Kann ich die Pro¬ 
gramme von Peeker-Disketten oh¬ 
ne weiteres in eigene Programme 
einbinden? 

Als Beispiel sei die Hard-Copy- 
Routine „SCREEN80“ aus Peeker 
4/85 gewählt. Ich tippte das Pro¬ 
gramm laut Listing ein - keine Re¬ 
aktion nach Starten durch RUN 
oder CALL 768. - Wie muß ich 
Vorgehen? - Wie kann ich feststel¬ 
len, bis zu welcher Adresse mein 
BASIC-Programm geht und wo ich 
dann SCREEN80 anhängen oder 
vom BASIC-Programm aufrufen 
kann. 

Michael Tarnowski, Wiesbaden 
Wenn man SCREEN80 mit CALL 
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768 startet, muß der Drucker be¬ 
reits eingeschaltet sein (grüne 
„POWER“-Taste leuchtet). Wenn 
der Drucker ausgeschaltet ist, war¬ 
tet SCREEN80 „ewig“, bis man 
ihn einschaltet. Dann hilft nur noch 
entweder Drucker einschalten 
oder Reset drücken, Da 
SCREEN80 für Drucker aller Art 
geschrieben wurde, kann die 
Druckbereitschaft nicht geprüft 
werden. US 

Wie gibt man Maschinenpro¬ 
gramme ein? 

Könnten Sie vielleicht einmal exakt 
erklären, wie man Programme (wie 
in Heft 5/85, S.50 INALL = Ma¬ 
schinenprogramm) in den Rechner 
eingibt?! Genaue Vorgehensweise 
beim Eintippen solcher Maschi¬ 
nenprogramme! 

Roland Sieling, Voerde 


AUGE und Peeker 

Im Peeker, 4/85, S. 7, hatte ich 
geschrieben: „Die einschlägigen 
Treffen der AUGE usw. dienen 
meist weniger dem Erfahrungs- als 
vielmehr dem Programmaus¬ 
tausch, wobei die kopiergeschütz¬ 
ten Programme mittels Kopien der 
kopiergeschützten Kopierpro¬ 
gramme kopiert werden“. Diese 
Aussage beruht auf meiner Erfah¬ 
rung mit einer Regionalgruppe, wo 
ich einmal vor einem guten Jahr 12 
Apples mit „ Nibble Away “, 
„Locksmith“ usw. in Aktion zählte, 
ferner auf telefonischen und 
schriftlichen Angaben von Peeker- 
Lesern und letztlich auch aufgrund 
von Mitteilungen im AUGE-Maga- 
zin selbst (zuletzt im Mai-Heft, S. 
8: „Dann kam das Gespräch wie¬ 
der auf die Regionalgruppen, wo 
es (Schilderung eines RG-Leiters) 


so aussieht: Mehrere Mitglieder 
bilden riesige Trauben um die 2-3 
vorhandenen Computer, um kom¬ 
merzielle Software zu kopieren“). 
Es wäre falsch zu sagen, daß alle 
Regionalgruppen sich diesbezüg¬ 
lich betätigen. Es wäre aber umge¬ 
kehrt ebenso falsch zu sagen, daß 
gar keine Regionalgruppe sich 
diesbezüglich betätigt. Es gibt Re¬ 
gionalgruppen, die von vornherein 
das Kopieren von Fremdprogram¬ 
men untersagt und damit Schwarz¬ 
kopierern einen Riegel vorgescho¬ 
ben haben. Eine solche vorbildli¬ 
che Regionalgruppe ist beispiels¬ 
weise diejenige vom Großraum 
Kassel, wie aus dem nachfolgen¬ 
den, aus Platzgründen gekürzten 
Leserbrief hervorgeht. Ich würde 
mich freuen, wenn alle Regional¬ 
gruppen so wären, und verzichte 
deshalb auch darauf, einen Leser¬ 


brief, der eine genau diametral ent¬ 
gegengesetzte Regionalgruppe 
schildert, abzudrucken, da ich mir 
von einer positiven Darstellung ei¬ 
nen positiven Nachahmungseffekt 
verspreche. Zudem würde ich der 
AUGE empfehlen, in die Satzung 
einen Passus aufzunehmen, der 
Schwarzkopierer aus dem Verein 
ausschließt. Danach würde eine 
Selbstreinigung stattfinden und 
das Gerücht von einem „Kopier¬ 
verein“ ein für allemal aus der Welt 
geschafft. Nunmehr der Leser¬ 
brief: 

In Ihrem Artikel über „Software 
und Kopierrecht“, Heft 4/85, Seite 
7, degradieren Sie, Herr Stiehl, die 
AUGE zu einem „Kopierverein“. 
Ich bin seit Mitte 1981 Regionallei¬ 
ter der AUGE im Großraum Kassel 
gewesen, und ich versichere hier¬ 
mit, daß auf keinem einzigen von 


Wie gibt man Maschinenprogramme ein? 


Nicht jeder versteht sich in der 
Kunst der Maschinensprache. Die 
im Peeker veröffentlichten Assem¬ 
blerprogramme sind dennoch auch 
für den nützlich, der nicht über die 
Kenntnis von Bits und Bytes im 
Computer verfügt. Wir wollen da¬ 
her im folgenden erläutern, wie 
Maschinenprogramme eingege¬ 
ben, gespeichert und aufgerufen 
werden. 

Die Eingabe 

Zur Eingabe von Hexadezimal¬ 
zahlen bedient man sich am be¬ 
sten des System-Monitors, der aus 
Applesoft durch CALL -151 akti¬ 
viert wird. Es erscheint dann an¬ 
statt des gewohnten Promptzei¬ 
chens „Ü" oder „]“ der Stern 
Will man nun einen Hexdump ein¬ 
geben, so tippt man zunächst die 
erste Adresse ohne gefolgt 
von einem Doppelpunkt (alle Wer¬ 
te werden im Monitor stets hexa- 
^ dezimal angegeben). Die folgen¬ 

den Hex-Zahlen werden nun, je- 
^ weils durch ein Leerzeichen ge- 

- trennt, nacheinander eingegeben 

{kein Leerzeichen zwischen Dop- 
g pelpunkt und erster Zahl), wobei 

nicht nach jeweils 8 Bytes die 
Adresse neu eingegeben werden 
muß (wie im Hexdump ausge¬ 
druckt), sondern bis zu ca. 80 Hex- 


Zahlen getippt werden können, be¬ 
vor die Return-Taste betätigt wer¬ 
den muß. Um weitere Zahlen ein¬ 
zugeben, genügt es nun, wieder 
einen Doppelpunkt einzugeben 
und die nächste Zahlenkolonne 
einzutippen. So verfährt man, bis 
alle Bytes eingegeben sind. 

Assemblerlistings 

Wurde nur ein Assemblerlisting 
abgedruckt, so verfährt man hier¬ 
bei analog, wobei nun alle diejeni¬ 
gen Bytes eingegeben werden 
müssen, die rechts von dem Dop¬ 
pelpunkt der Adresse und der fort¬ 
laufenden Zeilennummer des LI- 
stings stehen. Das kurze Assem¬ 
blerlisting 

0300: A9 BO 1 LDA #“0“ 
0302: 20 ED FD 2 JSR COUT 

wird durch folgende Zeile einge¬ 
geben: 

300:A9 BO 20 ED FD <RET>. 

Nachprüfen und Korrigieren 

Zuweilen möchte man die einge¬ 
gebenen Zahlen nachprüfen. Dazu 
gibt man die Anfangsadresse des 
gewünschten Bereichs, einen 
Punkt und dann die Endadresse 
des zu listenden Bereichs ein, ge¬ 
folgt von Return (z.B. „300.345 


<RET>“). Es erscheint dann eine 
Liste der gespeicherten Bytes, wie 
sie in den Hexdumps ausgedruckt 
ist. 

Hat man einen Fehler entdeckt, so 
kann ein einzelnes Byte durch 
„ <Adresse>: < Byte> “ über- 

schrieben werden. Achtung: Steht 
das Byte nicht am linken Rand, so 
muß die tatsächliche Adresse vom 
Rand her abgezählt werden. Ist 
z.B. in der Zeile 

0308- 00 01 03 03 04 05 06 07 

das dritte Byte falsch, so wird es 
durch 

30A:02 <RET> 

überschrieben. Durch Eingabe von 
308.30F <RET> 

wird dann die korrigierte Zeile an¬ 
gezeigt: 

0308- 00 01 02 03 04 05 06 07. 

Hat man ein Byte zuviel oder zu¬ 
wenig eingegeben, hilft fast nur 
noch ein erneutes Eintippen ab der 
fehlerhaften Stelle. 

Abspeichern 

Bevor nun der erste Probelauf er¬ 
folgt, sollte das Programm zu¬ 


nächst abgespeichert werden. 
Hierzu tippt man die Kopfzeile des 
Hexdumps ein (z. B. „ BSAVE 
PROGRAMM, A$300, L$AB 
<RET>“) oder allgemein 
„BSAVE <Name>, A$<Start>, 
L$<Länge>“. Dabei ist <Start> 
die erste Adresse des Programms 
(hexadezimal) und <Länge> die 
Anzahl von Speicherstellen, die es 
belegt. Die Länge kann bei Listings 
der letzten Zeile entnommen wer¬ 
den. „171 Bytes“ steht z.B. für 
dezimal 171 Bytes (hexadezimal 
$AB Bytes); soll der dezimale Wert 
angegeben werden, so muß das 
Dollarzeichen bei der Länge-Anga¬ 
be entfallen: „BSAVE PRO¬ 
GRAMM, A$300, L171 <RET>". 

Laden und Aufrufen 

Zum späteren Einladen des Pro¬ 
gramms genügt die Eingabe 
'„SLOAD <Name>“ oder, falls es 
sofort ausgeführt werden soll, 
„BRUN <Name>“. Ein im Spei¬ 
cher befindliches Programm startet 
man im Monitor durch „<Start> 
G“, wobei <Start> wieder für die 
hexadezimale Startadresse des 
Programms steht. 

Hat man seine Arbeit im Monitor 
beendet, so kommt man durch Ein¬ 
gabe von Ctrt-C <RET> wieder 
nach Applesoft. 
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mir geleiteten Treffen jemals ande¬ 
re als selbsterstellte oder freigege¬ 
bene Vereinssoftware kopiert wor¬ 
den ist! Meine Regionalmitglieder 
können durchweg bezeugen, daß 
ich immer energisch gegen alle an¬ 
deren Kopierversuche vorgegan¬ 
gen bin und daß niemals der Ein¬ 
satz eines Bit-Kopierers o.ä. ge¬ 
duldet worden ist! Unsere Treffen 
hatten immer Niveau und dienten - 
abgesehen von ungeliebtem, aber 
notwendigem Vereinskram - aus¬ 
schließlich der Information und 
Weiterbildung, der Weitergabe von 
Erfahrungen, der Lösung von Pro¬ 
blemen, die eigentlich Angelegen¬ 
heit der Firma Apple gewesen wä¬ 
re, und der Unterstützung von 
Neulingen. Aus unserer Gruppe 
entstand irgendwann dann die Re¬ 
gionalgruppe Göttingen, der zum 
größten Teil auch Lehrpersonal der 
Universität angehört, und die sich, 
wie ich mir vorstellen kann, sicher¬ 
lich ebenso wie wir gegen Ihre un¬ 
qualifizierte globale Behauptung 
verwahren wird, 

Wenn man allerdings die Seite 68 
desselben Heftes aufschlägt, in 


dem Sie regelrechte Rundum¬ 
schläge in Richtung AUGE austei¬ 
len, wird einiges klar: Sie selbst 
sind ja ebenfalls AUGE-Mitglied, 
und zwar ein ebenso engagiertes 
wie ich. Einen Beweis dafür kann 
ich vorlegen in Form einer erst¬ 
klassigen „AUGE-Diskette“ über 
das Grundthema „Assembler-Pro¬ 
grammierung“, die Sie verfaßt ha¬ 
ben und die in unserer Regional¬ 
gruppe immer noch sehr geschätzt 
wird. So fleißige und engagierte 
Leute wie Sie stoßen in einer Ver¬ 
einigung von inzwischen fast 5000 
Mitgliedern allerdings zwangsläufig 
irgendwann einmal auf Frust, und 
Sie hatten offensichtlich Ihr größ¬ 
tes Negativ-Erlebnis mit einem ru¬ 
dimentären, schwachen und ziem¬ 
lich kleinkarierten Vorstand der 
AUGE, den Sie nun gleichsetzen 
mit dem gesamten Verein! Sie 
bringen unsere wirklich interes¬ 
sierten und guten Mitglieder durch 
Ihre Verhaltensweise in ein arges 
Dilemma; Denn einerseits schät¬ 
zen wir Ihre Zeitschrift vom sonsti¬ 
gen fachlichen Inhalt her als eine 
der zur Zeit besten auf dem Markt. 
Dabei identifizieren wir uns zu ei¬ 


nem Großteil insbesondere mit der 
von Ihnen vertretenen kritischen 
Haltung gegenüber dem Ge¬ 
schäftsgebaren der Firma Apple, 
von der wir als Einzelpersonen, 
aber auch als AUGE-Mitglieder in 
der Vergangenheit wahrhaftig nicht 
verwöhnt worden sind. Anderer¬ 
seits können wir nicht Peeker- 


Nach jedem Peeker-Heft gehen so 
viele Zuschriften ein, daß ich pro 
Monat eine ganze Woche nur mit 
Leserkorrespondenz befaßt bin. Es 
ist mir ein besonderes Bedürfnis, 
mich an dieser Stelle herzlich für 
dieses „Feedback“ zu bedanken. 
Grundsätzlich wird jedes Schrei¬ 
ben von mir beantwortet, doch mö¬ 
gen Sie bitte Verständnis dafür ha¬ 
ben, daß es etwa 3 Wochen dauern 
kann, bis Sie eine Antwort erhal¬ 
ten. Aus Platzgründen kann ich nur 
einen Bruchteil der Zuschriften in 
Leserbriefe für den Peeker um¬ 
münzen. 

Für den Fall, daß es Sie interes- 


Abonnenten und AUGE-Mitglieder 
gleichzeitig sein, wenn Sie eine Ih¬ 
rer wichtigsten Aufgaben darin se¬ 
hen, gegen uns Krieg zu führen! 
Auch glauben wir, daß ja das „ User 
Magazin“ und der „Peeker" nicht 
um jeden Preis in „Konkurrenz“ 
zueinander stehen müssen. 

Jürgen Heil, Volkmarsen 


siert, warum ein im April-Heft des 
AUGE-Magazins veröffentlichter 
Pro-Mac-Contra-Stiehl-Leserbrief 
nicht im Peeker erschien, kann ich 
nur kryptisch antworten, daß mir 
vor einiger Zeit eine gewisse Com¬ 
puterfirma unter Zeugen die Kopie 
eines an den Peeker gerichteten 
gewissen Pro-Mac-Leserbriefes 
zeigte. Seit dieser Zeit reagiere ich 
auf Pro-Mac-Leserbriefe aller¬ 
gisch, denn Sie könnten ja mit ei¬ 
ner gewissen Computerfirma be¬ 
sprochen worden sein. Dies ist 
doch wohl verständlich, oder 
nicht? 

U. Stiehl 


An Ear to the Ground 


Extended Graphic System 


getestet von Dr. Jürgen B. 
Kehrel 

Ohne Hilfsmittel ist die Program¬ 
mierung von Apple-Shapes eine 
sehr mühsame und fehleranfällige 
Beschäftigung. Hier hilft Ihnen das 
Extended Graphic System (DM 
198,-, Firma Interface Age), das 
trotz seines Namens aus Deutsch¬ 
land kommt. Es dient zum Erzeu¬ 
gen und Editieren der hochauflö¬ 
senden Grafiken (HGR) sowie dem 
Erstellen von Shapes und den aus 
diesen bestehenden Tabellen. Sie 
können im vergrößerten Maßstab 
Ihre Figuren mit den Cursortasten 
oder einem Joystick entwerfen, 
drehen, in der Farbe variieren, 
ganz so wie es Ihnen gefällt, aber 
auch in der Originalgröße überprü¬ 
fen. Ihr Produkt läßt sich auf Dis¬ 
kette sichern oder mit anderen zu¬ 
sammen in eine Vektorentabelle 
einbinden. Auch aus fremden Ta¬ 
bellen können Sie einzelne 


Shapes isolieren und abspeichern. 
Extended Graphic System sorgt für 
die Einhaltung aller Regeln und lie¬ 
fert ohne weiteres Zutun komplette 
Applesoft-Vektorentabellen, auf 
die Sie dann aus Ihren eigenen 
Basic- oder Maschinenprogram¬ 
men zugreifen können. Ein De¬ 
monstrationsprogramm führt eini¬ 
ge Beispiele vor. Da alle Teile me¬ 
nügesteuert ablaufen, werden Sie 
die gut 40 Seiten der Bedienungs¬ 
anleitung (mit übermäßig vielen 
Zeichensetzungsfehlern) nicht 
häufig zu Rate ziehen müssen. 
Shapes aus beliebig vielen Tabel¬ 
len können nacheinander geladen, 
manipuliert sowie zu einem Bild 
kombiniert werden. Ihr „Werk" läßt 
sich in 5 Größenstufen mit wählba¬ 
rem Rand, auch mehrfach neben- 
oder untereinander ausdrucken. 
Das Dump-Programm ist abge¬ 
stimmt auf EPSON-Drucker der 
80er-Serie, ITOH 1550/851OA so¬ 
wie kompatible Geräte. 


...für APPLE und APPLE-compatible... 

• 16 K Karte 

• Z 80 Karte 

• Centronics Drucker Interface (grafikfähig) 

• Musik-System (3 stimm. Synthesizer) 

für je DM 85,~ 

Alle Karten 100 % getestet-volle Garantie. 

Sofort ordern im 

COMPUTERLADEN MEMMINGEN 

Kreuzstraße 9 ■ 8940 Memmingen • Telefon 08331 - 59 42 
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Terminal-Programm 
für die Super-Serial-Card 


von Andreas Lecreux 

Das Terminal-Programm aus dem 
Peeker 4/85 wurde auf einer 
ASIO-kompatiblen Karte getestet 
und entwickelt. Da diese Karte 
nicht sehr verbreitet ist, folgt hier 
die Anpassung an die Super-Se- 
rial-Card von Apple. Die benutzten 
Adressen beziehen sich auf diese 
Karte in Slot 2 und sind dem dazu¬ 
gehörigen Handbuch (Apple 
#A2L0044) entnommen. 

Die Programme werden erst vor 
der Ausführung geändert, damit 
das Original erhalten bleibt. Dies 
wird durch einen EXEC-File er¬ 
reicht, der als erstes die Original¬ 
programme in den Speicher lädt, 
diese dann entsprechend patcht 
und danach ausführt. Der Aufruf 
erfolgt somit durch „EXEC 
TERMINALPATCH“. 

Bei jedem dieser Schritte wird auf 
dem Bildschirm eine Meldung aus¬ 
gegeben. Wer diese Prozedur 
nicht jedesmal ausführen will, kann 
die geänderten, im Speicher be¬ 
findlichen Programme auf einer an¬ 
deren Diskette durch „SAVE TER¬ 
MINAL“ und „BSAVE TERMI- 


NAL.B, A$2000, L1046“ abspei¬ 
chern. 

Im Applesoft-Programm werden 
die Zeilen, in denen die Geschwin¬ 
digkeit (Zeilen 2100 ff.) und die 
Steuerleitung RTS gesetzt werden, 
ersetzt. Die genauen Änderungen 
entnehme man dem Listing. In der 
Programmzeile 2904 wird die 
Schnittstelle initialisiert. Die hier 
verwendeten Parameter bedeuten; 
OC - keine Verzögerung nach ei¬ 
nem CR, 

ID - 7 Datenbits und 1 Stoppbit 
OP - ohne Parität, 

IT - keine Übersetzung von Klein¬ 
buchstaben, 

80N - 80 Zeichen/Zeile, 

OL - keine Verzögerung nach ei¬ 
nem LF. 

Als zweites erfolgt ein Sprung in 
den Monitor. Von hier aus werden 
im Maschinenprogramm alle 
Adressen, bei denen auf die Sta¬ 
tus- und Datenregister der Schnitt¬ 
stelle zugegriffen wird, gepatcht. 
Nach dem Rücksprung zu Ap¬ 
plesoft wird das neue Programm 
gestartet. 


TERMINALPATCH 

NOMON 0,1,0 

HOME : PRINT "Patch für Super-Serial-Card" 

PRINT "nur bei Version 1.3" 

PRINT "BASIC-Programm wird geladen" 

LOAD TERMINAL 

PRINT "Maschinenprogramm wird geladen" 

BLOAD TERMINAL.B 

PRINT "Patch der Programme" 

PRINT " 1. Geschwindigkeit" 

DEL 9014,9034 
1590 

1535 DIM SP(15) 

1536 RESTORE : FOR I = 1 TO 15 

1537 READ SP{I) : NEXT 

1700 DATA 50,75,110,135,150,300.600,1200 
1710 DATA 1800,2400,3600,4800,7200,9600 
1720 DATA 19200 

2105 PRINT "Tempo zur Zeit = ";SP(SP) 

2107 FOR K - 1 TO 15 : PRINT K;" = "jSP(K); 

2110 PRINT " Baud" : NEXT K 
2115 INPUT "";SP$ ; SP - VAL(SP$) 

2120 IF SP < 1 OR SP > 15 GOTO 2115 

2125 PRINT D$"PR#"SE : PRINT I$;SP;"B" : PRINT D$"PR#"SC 
2904 PRINT D$"PR#"SE : PRINT I$"0C1D0P1T80N0L" : 

PRINT D$"PR#"SC 

PRINT " 2. RTS setzen und löschen" 

2805 : 

3330 : 

2602 : 

3050 ; 

3055 ; 

PRINT " 3. Ändern des Maschinenprogrammes" 

CALL -151 

2081:A8 N 22EF:A8 N 232D:A8 N 2354:A8 

23A9:A8 N 2079:A9 N 22E7:A9 N 2320:A9 

234C:A9 N 23A1:A9 N 23EF:08 N 23F0:10 

3D0G 

2415 PRINT "Patch Super-Serial-Card beendet" 

RUN 


Diversi-DOS 4-C 


getestet von Rudolf Rötering 

Die vier bekanntesten Betriebssy¬ 
steme für den Apple II sind: 

- DOS: Disk Operating System, 

- UCSD-Pascal: (zu Ehren des 
Philosophen Blaise Pascal). 

- CP/M: Control Program for Mi- 
croprocessor, 

- ProDOS: Professional Disk Ope¬ 
rating System. 

Seit geraumer Zeit gibt es darüber 
hinaus eine Vielzahl von Disketten- 
Betriebssystemen, die auf DOS 
3.3 basieren und im wesentlichen 
Geschwindigkeitsverbesserungen 
und teilweise mehr Befehle bieten. 
Diese applefremden Produkte ka¬ 
men auf den Markt, weil die Fa. 
Apple die Programmpflege des be¬ 
tagten DOS-3.3-Systems (Aug. 
1980) schlichtweg verschlafen hat¬ 
te. Als man bei Apple endlich auf¬ 
wachte, war es für eine verbesser¬ 
te Version zu spät, da bereits ap¬ 
plefremde DOS-Varianten Vorla¬ 
gen, die Apple selbst wohl kaum 
mehr hätte übertreffen können. 
Daraufhin wurde kurzerhand das 
bereits für den Apple IN vorliegen¬ 
de SOS (Sophisticated Operating 
System) für den Apple II umge¬ 
schrieben, womit das mit DOS 3.3 
wenig kompatible ProDOS ent¬ 
stand. Es wurde gegenüber DOS 
3.3 so stark abgeändert, daß die 
alten Compiler (z.B. Tasc, der 
selbst DOS-neutral ist) nicht mehr 
einsetzbar sind. 

Jedes System hat seine eigenen 
Vorzüge. Systeme mit geringen 
Änderungen haben den Vorteil der 
weitgehenden Kompatibilität mit 
DOS 3.3, bieten aber meist nur 
Geschwindigkeitsvorteile bei La¬ 
devorgängen von Programmen. 
Das einzige Betriebssystem, das 
bei allen Schreib- und Leseopera¬ 
tionen Verbesserungen bietet - 
auch bei den besonders zeitkriti¬ 
schen Textdateien - ist das Diver- 
si-DOS, zuletzt erschienen in der 
Version 4-C. (Die Version 4-C 
zeigt nach unseren Messungen 
keine Geschwindigkeitsverbesse¬ 
rung gegenüber der alten 2-C-Ver- 
sion.) 

Die gelieferte Utility-Diskette über¬ 
trägt das neue Betriebssystem me¬ 
nügesteuert auf DOS-3.3-Disket- 
ten. Dabei können aus diesem Me¬ 
nü heraus eine Vielzahl weiterer 
Optionen gewählt werden, wie z.B. 


die Ausgabe der Bedienungsanlei¬ 
tung auf Drucker oder als Text¬ 
datei. 

Der wohl wichtigste Vorzug von Di¬ 
versi-DOS ist die Geschwindigkeit 
beim Diskettenzugriff. Tabelle 1 
gibt einen Zeitvergleich zwischen 
ProDOS, DOS 3.3 und Diversi- 
DOS wieder. 

Die höhere Geschwindigkeit von 
Diversi-DOS liegt nicht in einer 
schnelleren RWTS-Routine, son¬ 
dern in der Verbesserung des sog. 
File-Managers. Um einen Sektor 
zu beschreiben, sind bei DOS 3.3 
18 Umdrehungen der Diskette er¬ 
forderlich, während Diversi-DOS 
nur 2 benötigt. 

Der krasseste Unterschied liegt bei 
„APPEND“ vor. DOS 3.3 liest den 
File so lange Feld für Feld ein, bis 
der Endmarker CHR$(0) erreicht 
ist. Diversi-DOS dagegen sucht 
den Sektor für das Ende der Datei 
in der TSL und liest ihn ein, um 
dort die nächsten Felder anzu¬ 
schließen. 


Tastatur- und Druckerpuffer 

Diversi-DOS ermöglicht die Ein¬ 
richtung eines Tastatur- und/oder 
Druckerpuffers in der LC oder an¬ 
deren RAM-Karten, die nach Ihren 
Wünschen generiert werden kön¬ 
nen (nur beim 48K-DOS). Diese 
Option BUFFER schließt den Be¬ 
fehl „INIT" aus und verändert die 
Vektoren für die Ein- und Ausga¬ 
beroutinen des Monitors ($0036 
bis $0039). Damit compilierte Pro¬ 
gramme, die ihrerseits auch die 
CHRGET-Routine verändern, lauf¬ 
fähig bleiben, kann z.B. durch 
„POKE 46965, 16" der CHRGET- 
Patch von BUFFER abgestellt wer¬ 
den. Ebenso sind alle Steuerbe¬ 
fehle an das Drucker-Interface oh¬ 
ne Funktion auf das Druckergeb¬ 
nis. Ob ein Videoecho erfolgt oder 
ob LF nach CR ausgeführt werden 
soll, muß mit POKEs in BUFFER 
gewählt werden. Der Vollständig¬ 
keit halber sei noch erwähnt, daß 
BUFFER mit Einschränkungen 
auch unter Integer-BASIC ver¬ 
wendbar ist. 


Der FREE-Sector-Patch 

Wenn Sie den FREE-Sector-Patch 
gewählt haben, kann während des 
Programmablaufes der freie Spei¬ 
cherplatz auf der Diskette ermittelt 
werden. Durch folgendes Beispiel 
wird dies verdeutlicht: 

100 POKE 48376,96: CALL 
48351: POKE 48376,32 
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TESTbERichTE 



110 FR = PEEK(70) ^ 256 + 
PEEK(68) : REM FR = unbe¬ 
nutzte Sektoren 

Für 64K-DOS muß Zeile 100 so 
aussehen: 

100 POKE 63261,96: POKE 
49058,0; CALL 49054: POKE 
49058,181; POKE 63261,32 
Es sollte natürlich kurz vorher ein 
Diskettenzugriff (z.B. ein CATA- 
LOG) erfolgt sein, damit der Wert 
auch aktuell ist. Eine mögliche An¬ 
wendung wäre die Überprüfung 
der Rest-Speicherkapazität einer 
Datendiskette bei der Buchfüh¬ 
rung, bevor die nächste Konten- 
bzw. Buchungsdatei eröffnet wird, 
damit auch alle Daten auf dieser 
Diskette Platz haben. 

DOS in der Language- 
Card 

Das 48K-DOS läßt sich mit „BRUN 
DDMOVER“ In die Language-Card 
verschieben. Dadurch ist es zu ei¬ 
nem 64K-DOS geworden. Aus ei¬ 
ner ganz normalen DOS-3.3-for- 
matierten Diskette können Sie mit 
der Utility-Diskette eine 64K-Ver- 
sion hersteilen, die während des 
Bootens das DOS in die LC 
schiebt. Wenn Sie beim Booten die 
ESC-Taste drücken, kann der 
„MOVE" unterdrückt werden. Ist 
PEEK (55) > 190, wurde DOS in 
die LC geschoben. Das 64K-DOS 
stellt einige neue Befehle bereit; 

• Beim CATALOG wird die Rest- 
Speicherkapazität der Diskette an¬ 
gezeigt. 

• Mit INIT X lassen sich Datendis¬ 
ketten formatieren, die die Spuren, 
auf denen sonst das DOS gespei¬ 
chert wird, für Daten freigibt. Da¬ 
durch erhält man 32 Sektoren = 
8K mehr nutzbaren Speicherplatz. 

• HIMEM liegt bei $BF00 (48896), 
wenn MAXFILES = 3 ist. Das be¬ 
deutet etwa 10K mehr RAM für 
Daten und Programme. 

• Die Fehlermeldungen werden 
im Gegensatz zum 48K-DOS aus¬ 
geschrieben, und nicht nur mit 
Code-Ziffern bezeichnet. 

• Mit ESC kann die CATALOG- 
Ausgabe nach jeder Bildschirmsei¬ 
te abgebrochen werden. 

• Bei BSAVE wird an den Pro¬ 
gramm-Namen automatisch die 
letzte Binäradresse und Pro¬ 
grammlänge angefügt. Mit PAD 
lassen sich diese Angaben auf den 
Bildschirm bringen. 

• Der RUN-Befehl kann einen 
„L“-Parameter (Line) enthalten, 
der das Programm ab der angege¬ 
benen Zeile startet. 


• Ein sehr nützliches Feature ist 
das Wildcard-Zelchen in Pro¬ 
grammnamen. Mit einem „ = an¬ 
gehängt an die ersten Zeichen des 
Programm-Namens, wird der erste 
File im CATALOG gewählt, bei 
dem die Zeichen vor dem „ = “ zu¬ 
treffen. Wenn anstelle des Gleich¬ 
heitszeichens ein Fragezeichen 
eingegeben wird, muß mit „Y“ 
oder „N“ das Programm ausge¬ 
wählt werden. Das Wildcard-Zei- 
chen allein ist nicht möglich. 

• Alle DOS-Befehle können auch 
in Kleinschrlft eingegeben 
werden. 

• Mit „C“ erhalten Sie einen CA¬ 
TALOG vom zuletzt eingestellten 
Slot und Drive. Parameter sind hier 
nicht möglich. 

• Mit TLIST, <Name> lassen 
sich z.B. Textfiles auf dem Bild¬ 
schirm anzeigen. Mit der Leertaste 
hält die Darstellung an und fährt bei 
erneuter Betätigung fort. 

Wenn ein BASIC-Programm ge- 
TLISTet wird, kann ein „L‘‘-Para- 
meter angefügt werden, der das 
Listing ab der angegebenen Zeile 
beginnen läßt. Hier bewirkt die 
Leertaste einen Wechsel zwischen 
Pause und dem Listing der näch¬ 
sten Zeile. Jede andere Taste läßt 
den Listvorgang wieder kontinu¬ 
ierlich durchlaufen. Dabei kann mit 
„D“ zwischen den Zeilen eine 
Leerzeile und mit „S“ diese Op¬ 
tion wieder abgestellt werden. Mit 
dem kann das Listing, z. B. zur 
Dokumentation, sehr übersichtlich 
gestaltet werden: Bei Mehrfach- 
Statements werden die Befehls¬ 
segmente zwischen den Doppel¬ 
punkten untereinander gelistet. 
Das Semikolon stellt diese 
Funktion wieder ab. Wenn Sie 
beim Programm-Namen ein 
BASIC-Programm wählen, können 
auch andere Programme mit allen 
möglichen Features geTLISTet 
werden, ohne das aktuelle Pro¬ 
gramm zu löschen. Hier können 
durch Überfahren mit dem Cursor 
auch Zeilen aus anderen Program¬ 
men übernommen werden. Wäh¬ 
rend des TLISTings werden die 
Leerzeichen des Interpreters links 
und rechts der Zeile nicht ge¬ 
druckt Dadurch läßt sich beim Edi¬ 
tieren der Cursor ohne Ausblen¬ 
dung bis zum Ende der Zeile fah¬ 
ren. CtrI-Zeichen werden Invers 
dargestellt und können beim Edi¬ 
tieren gelesen werden. 

• Während mit den Pfeiltasten edi¬ 
tiert wird, können nach einem Ctrl-I 
neue Zeichen in die bestehende 
Zeile eingefügt werden. Den IN- 


SERT-Modus erkennen Sie daran, 
daß der Cursor nicht mehr blinkt 
und der Text links davon eingefügt 
wird, während der Cursor selbst 
seine Position beibehält. In diesem 
Modus können mit der Linkspfeil¬ 
taste die Zeichen wieder gelöscht 
werden. Durch ein erneutes CtrI-l 
wird der INSERT-Modus wieder 
verlassen. 

• Die wohl leistungsfähigste Op¬ 
tion beim 64K-DOS sind die frei 
definierbaren Tastatur-MACROS. 
Jede der Tasten kann mit einer 
Folge von Zeichen definiert wer¬ 
den, von denen aber nur die Ctrl- 
Sequenzen verwendet werden 
sollten. Auf diese Weise können 
Sie sich für die verschiedensten 
Anwendungsfälle Macros definie¬ 
ren und in einem Binärfile mit frei 
wählbarem Namen z. B. mit 
„BSAVE MACRO.E, A$DC00, 
L$0100“ abspeichern. 


RAM-Disk 

Vom gleichen Hersteller kann ein 
RAM-Disk-Emulator bezogen wer¬ 
den, für den Sie einen 64K-Apple 
mit zusätzlich mindestens 64K 
RAM und Diversi-DOS in der 
Language-Card benötigen. Diese 
Voraussetzungen erfüllen ein Ap¬ 
ple llc, ein Apple Ile mit 64K Aux- 
Memory oder ein 64K Apple II Plus 
mit 2 zusätzlich möglichen 128K- 
RAM-Karten in Slot 1-7. Für die 
128K-Typen llc und Ile ist der vor¬ 
handene RAM-Disk-Driver schon 
automatisch konfiguriert. Sollten 
Sie von dieser Konfiguration ab¬ 
weichen, muß der RAM-Disk- 
Driver neu eingestellt werden. Zu¬ 
sätzlich zur normalen Rechner¬ 
kombination kann noch eine 2. 
Karte in die RAM-Disk einbezogen 
werden, was mit dem mitgeliefer¬ 
ten Programm RDCONFIG erfolgt. 
Angesprochen wird die RAM-Disk 
über den Pseudo-Slot 3 mit „,S3“. 
Die Laufwerksangabe kann ent¬ 
fallen. 

Als raffinierte Option ist hier die 
Möglichkeit zu nennen, eine Dis¬ 
kette so zu initialisieren, daß ein 
begrenzt formatierter Inhalt in die 
RAM-Disk paßt. Bei diesem Vor¬ 
gang wird auch der Driver und das 
Startprogramm RDHELLO dort ge¬ 
speichert. Danach ist das Betriebs¬ 
system auf 64K-DOS umzustellen. 
Beim Booten dieser Diskette wird 
die RAM-Disk initialisiert und der 
Disketteninhalt dorthin kopiert. 
Diese Option erspart das mühsa¬ 
me Kopieren von Textfiles in die 


RAM-Disk mit READ und WRITE 
oder mit FID. Eine solche Bootdis¬ 
kette muß nicht, sollte aber vorher 
auf allen Tracks formatiert werden, 
weil ein Kopieren mit COPYA 
sonst nicht möglich wäre. 

Die Anzahl der formatierten Tracks 
hängt von der Einstellung des 
Drivers ab, der wiederum an die 
RAM-Karten angepaßt werden 
muß. Dieses erledigt ein auf der 
Utility-Diskette befindliches Pro¬ 
gramm namens RDCONFIG. Lei¬ 
der werden die Optionen hinsicht¬ 
lich reservierter Bereiche für Dou- 
ble-HIRES, Konfigurationsmel¬ 
dung beim Booten und Bank-2- 
Schutz für die Karten im Aux-Slot 3 
nicht berücksichtigt. 

Bei der Installierung der RAM-Disk 
wird HIMEM um 768 Bytes auf 
$BC00 (48128) herabgesetzt, um 
Platz für den Driver zu schaffen. 
Hiernach stehen noch satte 45K 
RAM für Daten und Programme zur 
Verfügung. Auch die Bank 1 der 
Language-Card wird automatisch 
in die RAM-Disk integriert, die je¬ 
doch durch die Driver-Einstellung 
ausgeschlossen werden kann, um 
z.B. die schnelle Garbage-Collec- 
tion von Harald Grumser (Peeker, 
Heft 1/2, 85) benutzen zu können, 
die ja bekanntlich die Bank 1 be¬ 
legt. 

Die RAM-Disk-Einstellung wird 
durch die in Tabelle 2 aufgeführ¬ 
ten Speicherstellen bestimmt. 
Tabelle 3 zeigt eine Übersicht 
über die freien Speicherkapazitä¬ 
ten von Bootdisketten und RAM- 
Disks im Aux-Slot 3 des Apple Ile 
mit der INIT-Option des RAM-Disk 
Drivers. 

Bootdisketten für 128K-Karten 
stellen 480 und darüber hinausge¬ 
hende Karten z.B. die 192K-Nep- 
tune 496 freie Sektoren (volles 
DOS-3.3-Format) zur Verfügung, 
Wie weiter oben schon erwähnt, 
läßt sich zu einer dieser Karten in 
Slot 1-7 eine weitere RAM-Karte 
in die RAM-Disk einbinden. 

Wenn der RAM-Disk-File im Im- 
mediate-Mode geBRUNt wird, ste¬ 
hen dort 6 Sektoren mehr zur Ver¬ 
fügung. 

Zusammenfassend läßt sich sa¬ 
gen, daß ein Apple Ile mit 64K 
Aux-Memory oder größer, 
LC.FREE-Garbage-Collection in 
Bank 1 der Language-Card, 64K 
Diversi-DOS mit RAM-Disk und 
45K freiem RAM eine optimale 
Nutzung ermöglicht. 
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Tabelle 1 


Tabelle 2 


Zeile 

Befehl 

ProDOS 

Diversi- 

DOS 4-C 

DOS 3.3 

10 

BSAVE 

383 sec 

155 sec 

837 

20 

BLOAD 

97 sec 

125 sec 

628 

30 

WRITE 

30 sec 

57 sec 

140 

40 

READ 

27 sec 

47 sec 

165 

50 

WRITE 

108 sec 

95 sec 

171 

60 

READ 

105 sec 

86 sec 

243 


Anmerkungen zu Tabelle 1 

Die Werte wurden mit dem internen Laufwerk des Apple IIc 
ermittelt- Die in der Tabelle angegebenen Zeilennummern 
beziehen sich auf das folgende Programm: 

10 FÜR I = 1 TO 20: PRINT CHR$ (4)’'BSAVE XXX, A$1000, 
L$7FFF": NEXT : END 

20 FOR I = 1 TO 20: PRINT CHR$ (4)"BL0AD XXX": NEXT : END 

30 A$ = "123456789 123456789 123456789 123456789 123456789 
123456789 123456789 123456789 123456789 123456789" 

31 PRINT CHR$ (4)"OPEN YYY": PRINT CHR$ (4)"WRITE YYY": 

FOR I = 1 TO 500 

32 PRINT A$ 

33 NEXT : PRINT CHR$ (4)"CL0SE"; END 

40 PRINT CHR$ (4)"OPEN YYY": PRINT CHR$ (4)"READ YYY": 

FOR I = 1 TO 500 

41 INPUT "";A$ 

42 NEXT : PRINT CHR$ (4)"CL0SE": END 

50 A = 123456789 

51 PRINT CHR$ (4)"OPEN ZZZ": PRINT CHR$ (4)"WRITE ZZZ": 

FOR I = 1 TO 5000 

52 PRINT A 

53 NEXT ; PRINT CHR$ (4)"CLOSE": END 

60 PRINT CHR$ (4)"0PEN ZZZ": PRINT CHR$ (4)"READ ZZZ": 

FOR I = 1 TO 5000 

61 INPUT ""jA 

62 NEXT : PRINT CHR$ (4)"CL0SE": END 

Tabelle 2 

(8201) $2009: 1, RAM-Karte 

0 = 64K Ile RAM-Karte (Aux) 

1 = 192K Neptune Ile (Aux) 

2 = 128K Memorymaster Ile (Aux) 

Slot*16 = 128K Saturn Typ (Slot 1-7) 

128+Slot*16 = 128K Legend Typ (Slot 1-7) 

(8202) $200A: 2, RAM-Karte 

Slotitfl6 = Saturn Typ (Slot 1-7) 

128+Slot*16 = Legend Typ (Slot 1-7) 

(8203) $200B: Konfigurationsmeldung 

bei RAMDISK unterdrücken 

0 = ausgeben 
1 = unterdrücken 

(8204) $2000: Initialisieren der RAMDISK 
beim Booten mit Kopie 

0 = nein, 1 = ja 

(8205) $200D: Bank 2 schützen 

0 = nein, 1 = ja 

(8206) $200E: Double-Hires-Schutz 

0 = kein Schutz 

1 = Double-Hires 1 

2 = Double-Hires 2 

3 = Double-Hires 1+2 


Option bei 64K- 
Karten in Slot #3 

Bootdisk 

RAM-Disk 

Sekt. 

KByte 

Sekt. 

KByte 

ohne 

224 

56 

244 

61 

Doubie: 





HIRES 1 

176 

44 

196 

49 

HIRES2 

144 

36 

164 

41 

HIRES 1 + 2 

144 

36 

164 

41 

ohne Bank 2 

wie mit 

- 8 

- 2 


Diversi-DOS 2-C 

auf Peeker-Sammeldisk #6 


In Absprache mit der Firma Diver- 
sified Software Research haben 
wir auf die Sammeldisk #6 zwar 
nicht das ganze Betriebssystem, 
wohl aber die Dateien HELLO und 
ASMDIV aufgenommen. Wenn Sie 
Diversi-DOS benutzen wollen, bit¬ 
ten wir Sie, $30.00 (30,- Dollar) in 
Form eines auf eine beliebige 
amerikanische Bank ausgestellten 
Schecks (ggf. Kredit-Karte) zugun¬ 
sten von DSR an folgende An¬ 
schrift zu senden: 

DSR, Inc. 

5848 Cramptom Ct. 

Rockford, IL 61111 
USA 

Konto-Nr.815 877-1343 
(Visa/Master-Card) 

Sie erhalten dann direkt von DSR 
die Diskette mit der neuesten Ver¬ 
sion 4-C und allen dazugehörigen 
Utilities. 

Zur Installierung der auf der Sam¬ 
meldisk enthalten Version 2-C ver¬ 
fahren Sie wie folgt; 

1. DOS 3.3 von System-Master- 
Diskette booten 

2. NEW 

3. 10 PRINT "HELLO” 

4. Leerdiskette einlegen 

5. INIT HELLO 

6. Peeker-Sammeldisk einlegen 

7. RUN HELLO 

8. Formatierte Leerdiskette ein¬ 
legen 

Nunmehr aus HELLO-Menü nach¬ 
einander folgende Optionen (=Zif- 
fer) wählen: 


Option 2 = PUT DIVERSI-DOS 
ONTO ADISK 

Option 7 = BSAVE DDMOVER 
FILE 

OptionO = EXITTO BASIC 

Damit ist aus Ihrer formatierten 
Leerdiskette eine bootfähige Di- 
versi-DOS-Diskette geworden. Di¬ 
versi-DOS 2-C unterscheidet sich 
von 4-C in folgenden Punkten: 

1. 2-C enthält außer dem DD¬ 
MOVER keine zusätzlichen Featu¬ 
res („Schnickschnack"), so daß 
die 48K-Version viele Einsprung¬ 
adressen vom alten DOS 3.3 be¬ 
wahrt. Persönlich benutze ich des¬ 
halb nur 2-C. 

2. 2-C ist genauso schnelle wie 4-C. 

3. Wenn man mit BRUN DD¬ 
MOVER 2-C in die Language-Card 
Bank 2 schiebt, so liegt HIMEM 
fest bei $BF00 (48896). MAXFILES 
ist auf 5 festgelegt, d.h. 5 OPEN- 
Files. Bei 4-C wird bei Bedarf der 1/ 
0-Puffer ab $BF00 abwärts fortge¬ 
setzt. Bei 2-C kann man also HI¬ 
MEM herabsetzen und Maschinen¬ 
programme bequem oberhalb von 
HIMEM unterbringen. Dies ist bei 
4-C nicht ohne weiteres möglich. 

4. Die diversen RAM-Disk-Driver 
für die 64K-Karte auf der „MMU- 
2.0-DIskette‘‘ (Hüthig Software 
Service) sowie aus „Apple DOS 
3.3, Tips und Tricks" laufen nur in 
Verbindung mit 2-C. 

Nachdem Sie die Originalversion 
4-C von Diversified Software Re¬ 
search erworben haben, können 
Sie selbst wählen, welche Version 
Ihnen mehr zusagt. 
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^ TESTbERichTE 


Lasar II ze 

getestet von H. Grumser 

Die Firma MICROMINT Streil bietet 
zu einem Grundpreis von DM 
1365,- einen zum Apple II Plus 
kompatiblen Rechner an, der be¬ 
reits über eine 16K-Speicherer- 
weiterung und den Z80-A-Prozes- 
sor auf der Mutterptatine verfügt. 
Der Lasar II ze ist in einem etwas 
üppigen IBM-ähnlichen Gehäuse 
untergebracht, das zwei normale 
oder vier Slimline-Laufwerke auf¬ 
nehmen kann. Als externe Tastatur 
wird ein MARK-Il-Keyboard der 
Firma Multitech geliefert. 

Die zum Test bereitgestellte Aus¬ 
stattung umfaßte außerdem den 
Monitor Lasar 4000 (DM 330,-), ein 
bereits im letzten Peeker geteste¬ 
tes Chlnon-Laufwerk mit Controller 
(DM 645,-) und eine 80-Zeichen- 
karte (DM 179,-). 

Aufbau und Inbetriebnahme 

Die erste zu nehmende Flürde ist 
der Zusammenbau der einzelnen 
Komponenten, die ordentlich ver¬ 
packt geliefert werden. Die Be¬ 
schreibungen der einzelnen Teile 
ist, abgesehen vom Flandbuch der 
Tastatur, etwas dürftig, was dem 
Apple-Neuling Schwierigkeiten 
bereiten dürfte. Mit etwas techni¬ 
scher Intuition ist der Aufbau je¬ 
doch zu handhaben und nach an¬ 
fänglicher Mühe erscheint zum er¬ 
sten Mal die Erfolgsmeldung „LA¬ 
SAR ÜÄ ze" und das Integer-BA- 
SlC-Prompt-Zeichen. Das Be¬ 
triebssystem wird nicht selbststän¬ 
dig geladen, sondern muß durch 
„PR#6‘‘ gestartet werden (wohl 
dem, der über eine System-Ma- 
ster-Diskette mit Applesoft ver¬ 
fügt). 


Der BASIC-Interpreter befindet 
sich auf einer ROM-Karte, die in 
Slot 0 steckt: eine Applesoft-Karte 
kann nicht (!) bezogen werden. 
Dies bedeutet, daß ProDOS nicht 
gestartet werden kann, solange 
keine reine Applesoft-Firmware 
vorhanden ist, da ProDOS hier er¬ 
freulicherweise nicht durch den 
Controller zum erliegen kommt, 
sondern den Interpreter moniert, 

Die Tastatur 

Die deutsche Tastatur von Multi¬ 
tech wurde in erster Linie für die 
Programmierung unter Applesoft 
und DOS 3.3 entwickelt. So sind 
12 Funktionstasten mit Befehlen 
dieser Systeme vordefiniert. Dabei 
führt z.B. die Taste F12 den 
FlOME-Befehl sofort aus (d.h. RE¬ 
TURN wird übertragen), während 
der RUN-Befehl ohne RETURN 
übertragen wird. Dies erscheint 
wohl einsichtig, bedarf jedoch eini¬ 
ger Gewöhnung. Darüber hinaus 
erlaubt eine Alternate-Taste den 
Zugriff auf weitere 52 BASIC- 
Schlüsselwörter mit einem Tasten¬ 
druck. Diese Option kann nur nach 
langem Umgang mit dieser Tasta¬ 
tur gewinnbringend genutzt wer¬ 
den. Als sehr praktisch erweist 
sich die Möglichkeit, 10 Tasten mit 
eigenen Kommandos zu belegen, 
solange der Computer nicht abge¬ 
schaltet wird. 

Außer einem separaten Ziffern¬ 
block sind noch einige Tasten ent¬ 
halten, die spezielle ESC-Sequen- 
zen oder CtrI-Funktionen generie¬ 
ren oder automatische Zeilen¬ 
numerierung ermöglichen. Trotz 
der nicht gerade ergonomisch an¬ 
gelegten RETURN-Taste weiß je¬ 
der diese Tastatur zu schätzen, der 
schon einmal versucht hat. dem 




alten Europlus-Keyboard ein „ö" 
zu entlocken. 

Die Groß-/Kleinschreibung wird 
von der Hard- und Firmware des 
Lasar unterstützt, unter Applesoft 
können Kleinbuchstaben jedoch 
nur mit Flilfe der 80-Zeichen-Karte 
eingegeben werden. 


Controller und 80-Zeichenkarte 

Der Controller beweist seine Kom¬ 
patibilität, wie schon oben erwähnt, 
beim Booten des ProDOS-Sy- 
stems und arbeitet auch, wenn be¬ 
reits Applesoft in die 16K-Karte 
geladen wurde. Damit ist eine aus¬ 
reichende Kompatibilität gewähr¬ 
leistet. 

Die’80-Zeichenkarte verfügt über 
einen Softswitch und ist im großen 
ganzen videx-kompatibel. So läuft 
der entsprechend konfigurierte 
Merlin-Assembler wie auch die 
Betriebssysteme UCSD und CP/M 
ohne Schwierigkeiten. Zum Test 
lag eine Karte mit amerikanischem 
Zeichensatz vor. Laut Angabe der 
Firma soll jedoch auch eine deut¬ 


sche oder wahlweise umschaltbare 
Version lieferbar sein. 

Kompatibilität 

Einleitend kann gesagt werden, 
daß keine Kompatibilitätsprobleme 
auftraten. Nach Laden des Ap- 
plesoft-lnterpreters liefen alle BA- 
SlC-Programme anstandslos. 

Die Betriebssysteme UCSD und 
CP/M konnten ohne Schwierigkei¬ 
ten gestartet werden. Das Arbeiten 
mit dem Big-Mac- bzw. Merlin-As¬ 
sembler und der Applewriter-Ver- 
sion mit Videx-Preboot-Diskette 
gestaltet sich auf Grund der Groß- 
Kleinschreibtastatur bedeutend 
komfortabler. 

Die Probleme mit ProDOS können 
wohl nur bei illegalen Nachbauten 
umgangen werden; bei Kompati¬ 
blen bleibt zu guter Letzt der legale 
Weg, die benötigte Firmware bei 
einem „durch persönliches Band 
verbundenen Bekannten" mit Ori¬ 
ginal-Apple nachbrennen zu las¬ 
sen. Unter diesen Umständen 
dürfte der Lasar II ze so kompatibel 
sein wie der Apple II Europlus zu 
seinem amerikanischen Bruder. 
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Fazit 

Wenn man von der recht beschei¬ 
denen „Paperware“ absieht, stellt 
der Lasar II ze eine echte Alternati¬ 
ve zu den bedeutend teureren Ap¬ 
ples dar. Wer ohne Betreuung der 
Firma Apple leben kann und in 
Kauf nimmt, etwa zukünftige Be¬ 
triebssysteme nicht benutzen zu 
können, weil zunächst eine Prüf¬ 
summe der kompletten Firmware 
gebildet wird, ist mit dem Lasar 
sicher nicht schlecht beraten. 

Das beschriebene Gerät wurde ca. 
drei Wochen lang zu Testzwecken 
eingesetzt. In diesem Zeitraum 
konnten keine technischen Mängel 
festgestellt werden. 


Ausgabe und 
Eingabe mit 

TYPETERM® 

im Slot Ihres 

APPLE ll/lle 

Das bedeutet: Computer- 
textverarbeftung von der 

Schreibmaschinentastatur 1 
Steckerfertig ohne Umbau. 

TYPETERM- DM 479- 

Interface incl. MWSt, 

für alle BROTHER-Typenrad- 
schreibmaschinen 

Paketpreis: DM 1348,— 

Schreibmaschine 

CE-51 mit TYPETERM 



biothec 

OUALHAT AUS EflSTER HÄND.. 


Alle Maschinen günstig, z.B.: 

CE-61 .. DM 1308,- 

EM-80 DM 1608,- 

EM-100.DM 2643,- 

Pr'PETERM-Kit für CE-50 DM 468,- 

CE-25 mit TYPETERM anfragen 


TYPETERM - ein starkes Interface für 
starke Maschinen! Alle Cursor- und Ctl- 
Befehle. 2k ROM auf der Karte f. DOS, 
PRODOS, CP/M, PASCAL Alle Features: 
Hoch-/Tiefstellen, autom. Unterstreichen, 
var. Zeichen- u. Zeilenabst., autom. 
Papierzuführung usw. Ausführl. 

Handbuch vorab: 10,- DM auf Konto 
4770-306 PGiroA Han {Anrechnung). 
TYPETERM ein Produkt von 


intetkom 


Kock & Mreches GmbH 

—j— Postl., 3004 Isernhagen 4 

electronic Telefon 05139-87393 


Typenradschreibmaschine Brother CE 50 


getestet von Rainer Gerdes 

Allgemeines: Im November 1984 
kaufte ich mir bei der Firma Inter- 
com GmbFI in Isernhagen eine 
elektronische Schreibmaschine 
vom Typ Brother CE 50 mit ent¬ 
sprechendem Interface für meinen 
Apple II Plus. Der Preis lag zu die¬ 
ser Zeit bei DM 1298,- und er¬ 
schien mir bei Preisvergleichen mit 
anderen Anbietern als günstig. Die 
räumliche Nähe des Verkäufers 
gab wegen vieler schlechter Erfah¬ 
rungen mit anderen Computeran¬ 
bietern den Ausschlag. Bei der CE 
50 handelt es sich um eine porta¬ 
ble elektronische Schreibmaschi¬ 
ne mit folgenden Zusatzausstat¬ 
tungen: 

- automatischer Papiereinzug, 

- Flalbschritt vor- und rückwärts, 

- Indizierung und Exponentiation. 
Mit der Maschine und dem Inter¬ 
face wird noch eine 50seitige (!) 
Beschreibung mitgeliefert. Darin 
sind die Möglichkeiten der Maschi¬ 
ne beschrieben: die Installierung 
und der erste Test, die verschiede¬ 
nen Betriebsarten sowie das Ver¬ 
halten bei den verschiedenen Ap¬ 
ple-Betriebssystemen DOS 3.3, 
CP/M und UCSD. Am Ende sind 
Subroutinen aufgelistet und doku¬ 
mentiert, um die Maschine auch 
unter CP/M und UCSD als Einga¬ 
beeinheit verwenden zu können. 
Diese Subroutinen können auch 
vom Anbieter gegen eine Gebühr 
von DM 25,- pro Betriebssystem 
auf Diskette bezogen werden. Das 
Interface hat keine Standard¬ 
schnittstelle, sondern nutzt den fir¬ 
menspezifischen Eingang der 
Schreibmaschine. Das sollte in Be¬ 
tracht gezogen werden, wenn man 
in absehbarer Zeit einen System¬ 
wechsel vornehmen will. 


Betriebserfahrungen: Die Ma¬ 
schine wurde bis jetzt mit den bei¬ 
den Textverarbeitungssystemen 
Applewriter II und Wordstar gete¬ 
stet. Dabei tauchten keine Schwie¬ 
rigkeiten auf. Die Sonderfunktio¬ 
nen sind über Ctrl-Zeichen zu er¬ 
reichen und werden von der Ma¬ 
schine anstandslos ausgeführt. Zu 
den Sonderfunktionen gehören 
z.B. Unterstreichung, automati¬ 
scher Papiereinzug, Wahl des Zei¬ 
chenabstandes, Wahl des Zeilen¬ 
abstandes, Flalbschritt usw. 

Die Besonderheit des Interfaces 
kommt aber erst bei dem Textver¬ 


arbeitungssystem Wordstar zum 
Tragen, nämlich die Benutzung der 
Schreibmaschine als Eingabeta¬ 
statur. Nach dem Patchen des CP/ 
M-Betriebssystems mit der im 
Handbuch beschriebenen Routine 
kann der Wordstar normal mit „In¬ 
stall“ angepaßt werden. Es ist nur 
darauf zu achten, daß beim Driver- 
Menu die Möglichkeit CP/M “List“ 
Device gewählt wird und daß sich 
das Programm STAT auf der Dis¬ 
kette befindet. Mit zwei Befehlen 
ist dann vor dem Starten des 
Wordstar die Schreibmaschine als 
Ein- und Ausgabeeinheit aktiviert. 
Dabei sind Druckwerk und Tastatur 
getrennt. Man kann also Texte, oh¬ 
ne einen Ausdruck zu bekommen, 
direkt in den Rechner schreiben. 
Durch die vorhandenen Zusatzta¬ 
sten sind auch die ESC- und Ctrl- 
Funktionen erreichbar. Die 
Schreibmaschine macht also eine 
Zusatztastatur, auf die man beim 
Apple ll-H wohl nicht verzichten 
kann, überflüssig, wodurch gut DM 
500,- gespart werden können. Lei¬ 
der ist diese Eingabemöglichkeit 
auf den Wordstar beschränkt. Der 
Applewriter ist so angelegt, daß 
nur von der Apple-Tastatur aus zu¬ 
gegriffen werden kann. 

Erfahrungen mit dem Anbieter: 

Die anfängliche Skepsis dem An¬ 
bieter gegenüber rührt aus einem 
reichen Erfahrungsschatz mit an¬ 
deren Computerverkäufern her 
und war auch ein Punkt meiner 
Kaufentscheidung (s.o.). Diese 
Skepsis wich aber bald und mach¬ 
te einem positiven Urteil Platz. Nie¬ 


mand ist fehlerlos und so wurde 
auch meine Schreibmaschine von 
einer Kinderkrankheit befallen. 
Was in Basic einwandfrei funktio¬ 
nierte, nämlich Ein- und Ausgabe' 
von der Schreibmaschine, wollte 
nach dem Patchen des CP/M-Sy- 
stems nicht funktionieren. Nach 
mehreren Versuchen schickte ich 
erst einmal die Diskette zurück (ich 
hatte mich entschlossen, die 25.- 
DM zu investieren) und bekam 
nach 24 Stunden Ersatz. Als es 
immer noch nicht funktionieren 
wollte, wurde das EPROM auf der 
Platine ausgetauscht. Das ging al¬ 
les sehr schnell und reibungslos. 

Nachteile der Maschine: Kein 
Licht ohne Schatten. Der erste Kri¬ 
tikpunkt ist die Geschwindigkeit 
der Maschine. 13 Zeichen/Sekun¬ 
de ist natürlich sehr langsam, und 
man braucht etwas Geduld. Die 
Schreibmaschine wird von CP/M 
nur in Slot 2 entdeckt. Ist die 
Schreibmaschine in Slot 2 einge¬ 
steckt, so meldet sich CP/M nur, 
wenn die Maschine in Betrieb ist. 
Wurde der Rechner ausgeschaltet, 
so muß auch die Schreibmaschine 
ausgeschaltet werden. Andernfalls 
bleibt das Schreibwerk in der Mitte 
der Maschine stehen und CP/M 
bootet nicht mehr. Es müssen also 
immer beide Maschinen gleichzei¬ 
tig gestartet werden. 

Fazit: Eine schöne Maschine mit 
kleinen Fehlern, die aber trotzdem 
sehr empfehlenswert ist. Die glei¬ 
che Empfehlung gilt für den An¬ 
bieter. 
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^ TESTbERIchTE 


Editierhilfen für den Apple 


getestet von Franz-Josef Hüskens 

Jeder, der mit dem Apple ernsthaft 
programmieren will, hat mit Sicher¬ 
heit (und Bedauern) bereits festge¬ 
stellt, daß dieser Computer von 
Hause aus nur mit sehr mageren 
Editierfähigkeiten ausgestattet ist. 
Das Programmieren in BASIC wird 
fast zur Tortur, da bei der Korrektur 
einer Zeile mit „wilden" Tastense¬ 
quenzen gearbeitet werden muß 
und dabei die Fehleranfälligkeit 
reichlich hoch ist. 

Dies macht es dann früher oder 
später erforderlich, ein Programm 
zu erstehen, das bei der Berichti¬ 
gung und Veränderung von Pro- 
grammzeilen hilft und vielleicht 
auch noch sonstige Programmier¬ 
unterstützung bietet. Hier sollen 
nun zwei Programme vorgestellt 
werden, von denen jedes für sich 
eine große Hilfe darstellt, die je¬ 
doch zur Freude des Programmie¬ 
rers auch gemeinsam ihre Arbeit 
verrichten können. 


Global Programm Line 
Editor 

Die Utility GPLE ist ein allgemeines 
Program mzeilen-Bearbeitungspro- 
gramm. Es ist sowohl unter DOS 
3.3 als auch unter ProDOS ein- 
setzbar und wird auf einer Diskette 
geliefert, auf der sich beide Pro¬ 
grammversionen befinden. Wird 
diese Diskette gebootet, wird auto¬ 
matisch ProDOS geladen und 
GPLE installiert. Will man unter 
DOS 3.3 mit GPLE arbeiten, so 
muß man mit einer „normalen" 
Diskette booten und dann GPLE 
laden. 

Unter DOS 3.3 gibt es dafür drei 
Möglichkeiten: 

1. zwischen die DOS-Puffer, 

2. in die 16K-Karte (mit einer zwei¬ 
ten Sprache), 

3. mit DOS in die 16K-Karte. 

Für diese drei Speicherbereiche 
stehen auf der Diskette drei Pro¬ 
grammversionen zur Verfügung. 
Als weiteres Programm befindet 
sich auf der Diskette ein DOS- 
Mover; dieser wird bei der dritten 
Möglichkeit benötigt. 

Bevor man GPLE lädt, kann man 
es für den eigenen Gebrauch „ein¬ 
stellen" (konfigurieren). Dabei 
können folgende Möglichkeiten 
gewählt werden: 

1. eine von sechs direkt unter¬ 
stützten 80-Zeichen-Karten (für 


weitere Karten sind Treiber-Pro¬ 
gramme auf der Diskette vor¬ 
handen), 

2. ob die 80-Zeichen-Karte direkt 
nach dem Laden von GPLE einge¬ 
schaltet werden soll, 

3. Simulierung eines Tastaturpuf¬ 
fers, 

4. Groß- und Kleinschreibung. 

Auf Schwierigkeiten, die die Be¬ 
nutzung des Tastaturpuffers her- 
vorrufen kann, wird im Handbuch 
ausdrücklich hingewiesen. 


Die Benutzung von GPLE 

Das wohl wichtigste Kommando ist 
CtrI-E. Danach erhält man die 
Möglichkeit, eine oder mehrere 
Programmzeilen zu editieren oder 
in einem Zeilenbereich bzw. im ge¬ 
samten Programm Wörter zu su¬ 
chen und/oder zu ersetzen. 

Es wird die gewünschte Zeile geli¬ 
stet und zur Bearbeitung zur Verfü¬ 
gung gestellt. Beim Editieren eines 
Zeilenbereichs wird die jeweils zur 
Bearbeitung anstehende Zeile an¬ 
gezeigt. 

GPLE bietet folgende Editierhilfen: 

- Positionierung des Cursor (zum 
Anfang oder zum Ende der Zeile 
oder auf ein bestimmtes Zeichen): 

- Einfügen und Löschen beliebiger 
Zeichen (auch CtrI-Zeichen); 

- Löschen von ganzen Zeichen¬ 
ketten; 

- „Packen" einer Zeile, d.h. alle 
Leerzeichen (Blanks), die nicht in 
Anführungszeichen stehen, wer¬ 
den entfernt; 

- Umwandlung des Zeichens unter 
dem Cursor in einen Klein- bzw. 
Großbuchstaben: 

- man kann aber auch alle Ände¬ 
rungen wieder rückgängig ma¬ 
chen. 

Neben dem Editieren von Pro¬ 
grammzeilen ist es auch möglich, 
mit CtrI-W Befehle, die im direkten 
Modus eingegeben und noch nicht 
mit RETURN bestätigt wurden, zu 
verbessern. 

Der große Vorteil, den GPLE dabei 
bietet, ist die Akzeptierung einer 
Zeile unabhängig von der momen¬ 
tanen Cursorposition, d.h. bei ei¬ 
ner Änderung oder Verbesserung, 
die am Anfang einer Zeile nötig 
war, muß der Zeilenrest nicht mit 
dem Cursor „überfahren" werden, 
um ihn zu übernehmen. An jeder 
beliebigen Stelle der Zeile kann 
RETURN gedrückt werden, und die 


Zeile wird so übernommen, wie sie 
auf dem Bildschirm zu sehen ist. 

Dies ist aber noch nicht alles, was 
GPLE bietet! 

Terminals an größeren Computern 
haben meist neben der Tastatur 
noch Funktionstasten, die mit häu¬ 
fig benötigten Befehlen oder Be¬ 
fehlssequenzen programmiert 
werden können. 

Durch GPLE wird der Apple auch 
mit solchen „programmierbaren" 
Tasten ausgerüstet. Zur Befehls¬ 
ausführung müssen dann zwei Ta¬ 
sten, nämlich die ESC-Taste und 
die „programmierte" Taste betätigt 
werden. 

Um eine Taste zu programmieren, 
wird mit CtrI-E zuerst in den Edi¬ 
tiermodus umgeschaltet, dann 
ESC und die zu definierende Taste 
eingegeben und zum Schluß der 
oder die gewünschten Befehle 
programmiert. Dabei stehen insge¬ 
samt 1152 Bytes zur Verfügung. 

Eine so definierte ESC-Tabelle 
kann mit dem entsprechenden 
Hilfsprogramm auf Diskette ge¬ 
speichert bzw. auf dem Drucker 
ausgegeben werden. Die zwei 
Hilfsprogramme werden mitgelie¬ 
fert. Natürlich ist es auch möglich, 
die Tabelle seitenweise auf dem 
Bildschirm anzuzeigen. 

Außerdem befinden sich auf der 
Diskette noch drei Programme, mit 
denen FID, MUFFIN und RENUM- 
BER so geändert werden, daß sie 
mit dem verschobenen DOS arbei¬ 
ten können. 

Zusammen mit der Diskette erhält 
man ein 38 Seiten starkes Hand¬ 
buch, das nicht nur die Befehle 
detailliert und anhand von Beispie¬ 
len beschreibt, sondern auch die 
Benutzung aller auf der Diskette 
mitgelieferten Programme erklärt. 
Zusätzlich enthält das Handbuch 
noch einen Teil mit verschiedenen 
allgemeinen Tips zur besseren und 
übersichtlicheren Programmierung 
und Tips zur Anwendung von 
GPLE. 


DOUBLE TAKE 

DOUBLE TAKE kann allein arbei¬ 
ten; es kann jedoch auch zusam¬ 
men mit GPLE geladen werden, 
und zwar an die gleichen Stellen 
(s.o). Man kann bis zu vier Module 
laden (die Module werden vom 
Hersteller mit Farben bezeichnet), 
wobei das fünfte automatisch ein¬ 
gelesen wird. 


Die Module enthalten folgende 
Funktionen: 

- Das rote Modul enthält eine neue 
LIST- und CATALOG-Routine. 
Beim Listen eines Programms gibt 
es nun zwei Möglichkeiten: das alt¬ 
bekannte Applesoft-Listing und ein 
neues Listing, bei dem alle Befeh¬ 
le, die in einer Programmzeile ste¬ 
hen können, in eine neue Bild¬ 
schirmzeile geschrieben werden. 
Sowohl beim CATALOG als auch 
beim Listen ist es möglich, mit den 
Pfeiltasten die Ausgabe vorwärts 
und rückwärts zu steuern. 

- Das orange Modul enhält diverse 
Monitor-Hilfen. Neben einem Hex/ 
ASCII-Dump, einer Disassemblie¬ 
rung und einer Hexadezimal/Dezi¬ 
mal-Umrechnung ist es auch mög¬ 
lich, Monitor-Kommandos aus dem 
Applesoft-Direktmodus heraus 
einzugeben. 

- Das blaue Modul gestattet es, 
zwei Applesoft-Programme zu 
mergen (mischen), Zeilen umzu¬ 
numerieren (beides entspricht 
dem Applsoft-Programm RENUM- 
BER) und Zeilen automatisch zu 
numerieren (entspricht dem 
AUTO-Befehl beim Integer- 
BASIC). 

- Das gelbe Modul bietet: 

1. Programmstatistik (Zeiger und 
Speicherbereiche des BASIC-Pro- 
gramms); 

2. 2-Byte-PEEK (entspricht PEEK 
(adr) -H PEEK (adr-h 1)^256); 

3. Liste der Variablen eines Pro¬ 
gramms, alphabetisch sortiert mit 
den Nummern der Zeiten, in denen 
sie auftreten; 

4. Anzeige der einfachen Varia¬ 
blenwerte eines Programms (keine 
Felder); 

5. „Cursor-Ersatz“ (der Cursor 
kann neu definiert werden); 

6. Sichtbarmachen von Ctrl-Zei- 
chen. 

Zusätzlich gibt es ein Modul mit 
„Bildschirmschaltern“ zum einfa¬ 
chen Umschalten zwischen Text 
und Grafik (Lores, Hires) 

Alle Komandos belegen die ober¬ 
ste Reihe der Tastatur und werden 
mit CtrI-F aufgerufen. In der Anzei¬ 
ge erscheint dann „FUNCTION?". 
Nun muß die mit der gewünschten 
Funktion belegte Taste gedrückt 
werden, worauf gegebenenfalls 
weitere „Hilfs"-Fragen erschei¬ 
nen. Als Gedächtnisstütze wird ei¬ 
ne Kommando-Tafel mitgeliefert, 
die man hinter die oberste Tasten¬ 
reihe stecken kann. 

Das Programmsystem kann wegen 
der modulweisen Lademöglichkeit 
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den eigenen Wünschen und Be¬ 
dürfnissen entsprechend zusam- 
mengesteilt werden. Das dazu be¬ 
nötigte Programm erlaubt nicht nur 
die Auswahl der Module in der nor¬ 
malen Länge, sondern bietet die 
Teilprogramme in einer verkürzten 
Version an (bis auf das gelbe Mo¬ 
dul) und zeigt, woraus die verkürz¬ 
ten Module bestehen. 

Alle fünf Module zusammen benö¬ 
tigen in der normalen Form 8K 
Speicherplatz. Bei entsprechender 
Speicherung (DOS und GPLE in 
der 16K-Karte, DOUBLE TAKE 
darunter) verbleiben ungefähr 38K. 

Die Benutzung von DOUBLE 
TAKE wird in einem 20seitigen 
Handbuch gut beschrieben. Dabei 
wird auch auf die Unterschiede im 
Aufbau der Tastatur des Apple II 


Lernprogramme 

getestet von 

Dr. Jürgen B. Kehrel 

Die Firma INTUS Lern-Systeme 
AG bietet eine große Zahl von Pro¬ 
grammen an, die Ihren Apple zum 
geduldigen und anspruchsvollen 
Lehrer werden lassen. Alle Pro¬ 
gramme sind in deutscher Sprache 
und auf einem Apple Ile oder llc 
lauffähig. Der ältere Apple II Plus 
ist wegen fehlender Kleinschrei¬ 
bung und der eingeschränkten Ta¬ 
statur (Umlaute) nur bedingt ein¬ 
satzfähig, z.T. gar nicht. Die Dis¬ 
ketten sind kopiergeschützt. Zu 
Testzwecken wurde dem Peeker 
eine Auswahl der Programme zur 
Verfügung gestellt, die nachfol¬ 
gend charakterisiert werden. 

Maschineschreiben wie der Biitz 

In 20 Lektionen für Anfänger und 
Fortgeschrittene wird ein komplet¬ 
ter Lehrgang ohne zusätzliches 
Lehrbuch geboten. Die einzelnen 
Tasten (inkl. Groß- und Klein¬ 
schreibung), Wörter und Sätze 
werden geübt. Ihre Genauigkeit 
und Schnelligkeit wird getestet, so 
daß Sie gezielt üben können, um 
Ihre Fähigkeiten zu vervollkomm¬ 
nen. 1 Applesoft-Dlskette, DM 
188,-. Für Apple II Plus ungeeignet. 

Computer-Simulator 

Dieses Programm hilft Ihnen, die 
Arbeitsweise eines echten Com¬ 
puters zu verstehen. Ein verein¬ 
fachter Rechner mit nur 4-Bit-Pro- 


Plus und des Apple Ile eingegan¬ 
gen. Zusätzlich erhält man die be¬ 
reits oben erwähnte Kommando- 
Tabelle. 

Zur Zeit gibt es in Deutschland 
noch die Version 1.2 von DOUBLE 
TAKE. Diese Version arbeitet nicht 
mit GPLE zusammen! Wollen Sie 
beide Programme gemeinsam be¬ 
nutzen, so müssen Sie beim Kauf 
unbedingt die DOUBLE-TAKE- 
Version 2.0 verlangen. Diese Ver¬ 
sion unterstützt auch die 80-Zei- 
chen-Karte, wobei 11 verschiede¬ 
ne Kartentreiber zur Verfügung 
stehen. Beide Programme werden 
von der Beagle Bros Inc. verlegt 
und sind in Deutschland bei ver¬ 
schiedenen Importeuren erhältlich. 
GPLE kostet ca. DM 180,- (und ist 
seinen Preis wert!), DOUBLE 
TAKE ca. DM 140,-. 


von INTUS 

zessor, 20 Speicherplätzen und 10 
Befehlen läßt Sie in sein Innenle¬ 
ben (Ein- und Ausgabe, Zentral¬ 
einheit mit Akkumulator, Pro¬ 
grammzähler und Instruktionsregi¬ 
ster) schauen. Für Schüler ab etwa 
6. Schuljahr. 1 Applesoft-Diskette 
plus Manual, DM 146,-. 

Applesoft-Basic-T utorial 

Mit diesem Tutorial und 9 Seiten 
Text werden Sie lernen, in Ap¬ 
plesoft zu programmieren. In 12 
Lektionen wird der ganze Befehls¬ 
satz des Apple (außer der hochauf¬ 
lösenden Grafik) mit Ihnen durch¬ 
gearbeitet. Zwei Anwendungstuto¬ 
rials zeigen Ihnen kommerzielle, 
medizinische, statistische und 
schulische Beispiele sowie Spiele. 
2 Applesoft-Disketten, DM 295,-. 

Deutsche Grammatik mit Spaß 

Sie besteht aus einer umfangrei¬ 
chen Serie mit zur Zeit 15 Disket¬ 
ten zu Rechtschreibung, Zeichen¬ 
setzung, Wortarten. Verben, Zei¬ 
tenfolgen, Adjektiven und Adver¬ 
bien, Satzgliedern, Haupt- und Ne¬ 
bensätzen, Transformationen, 
Wortbedeutungen und stilistischen 
Problemen. Neben Regeln und Er¬ 
klärungen stehen zahlreiche 
Obungen, die Sie zwischen 2 und 
5 Stunden pro Diskette beschäfti¬ 
gen. Arbeitstempo und Schwierig¬ 
keitsgrad sind wählbar. 15 Pascal- 
Disketten, je DM 165,-. (Apple- 
Pascal nicht erforderlich.) 


Algebra, leicht verständlich 

Die Übungsprogramme dienen zur 
Vertiefung des Elementar-Algebra- 
Stoffes. Interaktiv werden Sie in 
mehreren Schwierigkeitsebenen 
zur selbständigen Lösung geleitet. 
Bei falschen Lösungen werden 
Beispiele aufgezeigt und die Lö¬ 
sungsschritte nachvollzogen. Die 
Programme sind für die Sekundar¬ 
stufe 1 und 2 bestimmt. 4 Ap¬ 
plesoft-Disketten (Preis?). 


Lesen wie der Blitz 

Das Programm dient dazu, Ihre Le¬ 
segewohnheiten zu verbessern 
und gleichzeitig Ihr Lesetempo zu 
steigern. Ihre Konzentrationsfähig¬ 
keit wird gefördert, indem Ihnen 
Zahlen, Wörter oder Sätze für kur¬ 
ze Zeit gezeigt werden, die Sie 
niederschreiben sollen. Sie erhal¬ 
ten dann die Antwort, ob es richtig 
war. Durch regelmäßige Übung 
(täglich 30-60 Minuten) steigern 
Sie Ihre Geschwindigkeit. 1 Apple¬ 
soft-Diskette, DM 115,- 


Erscheinungs- und Anzeigen¬ 
schlußtermine für peeker 


Ausgabe 

Erscheinungs- 

termin 

Anzeigen¬ 

schluß 

7 

24. 6.85 

24. 5.85 

8 

22. 7.85 

21. 6.85 

9 

26. 8. 85 

26. 7.85 

10 

23. 9.85 

23. 8.85 

11 

21. 10. 85 

20. 9.85 

12 

25. 11.85 

25. 10. 85 


... in eigener Sache: 

die Nachfrage nach dem vergriffe¬ 
nen Heft 1/84 ist groß. Ab sofort 
können Sie eine Heftkopie direkt 
beim Veriag bestelien. 

Preis für das inland: 

DM 10,- inki. Versandkosten 

für das Ausiand: 

DM 12,- inki. Versandkosten 
eventueile Luftpostzuschiäge zzgi. 
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'Sammtfiui time» 


APRfll 

PSCAL 


Weiterführende Literatur... 


Noch im Programm: 

6502 - Programmieren in Assembler DM 59,- 
VisiCalc, 50 Programme auf Diskette, DM 79,- 


In Vorbereitung: 

Macintosh Programmier-Handbuch DM 59,- 


Computer für Kinder 

(Sally Greenwood Larson) 

Ein Buch für Kinder, ihre Lehrer 
und Eltern, 

„Computer für Kinder“ richtet 
sich an Kinder im Alter von 8 bis 
13 Jahren, für deren Interesse an 
Computern dieses Buch bewußt 
geschrieben wurde. 
Unterhaltsam und leicht .verständlich, 

A4 quer, Fadenheftung, DM 29,80 


Apple Maschinensprache 

Für BASIC-Programmierer der einfachste 
Zugang zur Muttersprache des Apple. Wesent¬ 
lich schnellere Maschinenprogramme, direkte 
Manipulation des Mikroprozessors 6502 im 
Apple — als Brücke dorthin benötigt dieses 
Buch nur die drei BASIC-Befehle, POKE, 
CALL, PEEK. D, Inman/K. Inman. DM 49,- 


LOGO- 

Jeder kann programmieren 

(Daniel Watt) 

Buch des Jahres in den USA. Für die 
Computer C64, ATARI, APPLE II, IBM-PC 
und Th99. 

Hochwertiges Textbuch für Logo-Kurse für 
zu Hause und im Lehrbereich. 

A4, DM 59,- 


APPLEII PASCAL - 
Eine praktische Anleitung 

(A, Luehrmann, H. Peckham) 

Unentbehrlich für alle, die die Programmier- 
spräche PASCAL lernen wollen und 
Zugang zu einem Apple-Computer haben. 
544 Seiten, Softcover, DM 59,- 


APPLEII - Bewegte 3D-Graphik 

(Phil Cohen) 

Selbstentworfene Graphiken und Dia¬ 
gramme - animiert oder als Standbilder - 
eben oder räumlich: alle erforderlichen 
BASIC-Programme mit Erklärung finden 
Sie in diesem Buch, 
ca. 190 Seiten, Softcover, DM 49,- 


APR£II 

PASC/^ 


APPLE II PASCAL 

lEip I Betriebssystem und 
CAL Sprache 


Sprache 


Apple II Betriebssystem, 

272 Seiten, DM 49,- 

Apple II Sprache, 

216 Seiten, DM 39,- 

Pascal 1.2 Addendum, etwa 100 Seiten, 
DM 36,- 


Erstes deutsches Referenzwerk sämtlicher Befehle 
und Systemroutinen von Apple II Pascal - mit Adden¬ 
dum einschließlich Version Pascal 1.2! 

Gültig für Apple 11,11 Plus, De einschließlich der 
128K/80 Zeichen-Konfiguration. 

Betriebssystem kommentiert ausführlich und in 
Deutsch Funktion und Benutzung der fast 60 System¬ 
routinen des Apple II Pascal Betriebssystems. 

Sprache ist das vollständige, deutsche Referenzwerk 
der „Apple Pascal“-Programmiersprache mit u.a. Infor¬ 
mationen über professionelle Pascal-Programmierung, 
Turtlegraphics, Programmbibliothek etc. 

In Vorbereitung: Addendum Pascal 1.2, ein 

Zusatz zum Buch „Betriebssystem“ für 1.2-Benutzer in 
Deutsch. 


„Nach Unterlagen von Apple Deutschland hergestellt“ 


APPLE 

MASCHINEN 

SPRACHE 


mnon 


APPLE II - 
Anwenderhandbuch 

(L. Poole) 

Erst mit Hilfe dieses Leitfadens werden Sie 
Ihren Apple II erfolgreich einsetzen, denn 
Text und Bildmaterial gehen weit über das 
hinaus, was herstellerseitig an Literatur 
angeboten wird. 

416 Seiten, Softcover, DM 56,- 
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